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ABSTRACT 


The Computer Aided Prototyping System (CAPS) is an integrated set of software 
engineering tools developed at the Naval Postgraduate School (NPS). It is designed to 
support rapid prototyping of real-time systems. CAPS consists of four major 
subcomponents; the graphics/text editor, the user interface, the software database system, 
and the execution support system. Reports from users of CAPS, particularly novices, 
indicated that the clumsy and unintuitive multi-windowed graphics/text editor present in 
the system hampered the use of the tool set. This thesis presents the substitution and 
integration of an efficient and user-friendly syntax directed editor into CAPS. The new 
syntax directed editor consists of a package of seven Ada95 parsers that recognize the 
elements of the Prototype System Description Language (PSDL) and an enhanced 
C\Motif based graphics editor. These modules combine the functionality of all the 
windows of the graphics/text editor into one window, using pop-up boxes and menus to 
guide the designer in providing the proper information. | During integration, particular 
attention was paid to ensuring the proper manipulation of data was occurring between 
modules and the internal consistency was being maintained at the inter-language 


interfaces. The result is a faster, intuitive, and more efficient designer interface. 
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I. INTRODUCTION 


A. GOALS 


The goals of this thesis are to produce an intuitive and efficient syntax directed 
graphical editor and document its integration into the Naval Postgraduate School's 
Computer Aided Prototyping System (CAPS). 

CAPS operates using the Prototype System Design Language (PSDL), a design 
language created to present software designers with a tool for creating rapid prototypes. 
A syntax directed editor (SDE) for PSDL is a tool for editing PSDL programs, called 
prototypes. The editor checks each element of the PSDL language entered into the 
prototype by the designer for errors. This is done using a set of parsers designed to 
analyze text for specific words or strings of letters, known as tokens. If the tokens are 
correct for the language, the designer may proceed with the design, if not, the designer is 
alerted to the error and directed to the position of the mistake. In this way, an SDE can 
assist the designer in creating prototypes in a quick and effective manner. 

CAPS is an integrated set of tools designed to allow designers to rapidly produce 
a prototype matching user specified requirements. Rapid prototyping allows the designer 
to clarify the needs and desires of the user early in the software development cycle. This 
eliminates costly errors that normally are not discovered until later, when significant 
effort is required for correction. The intent in inserting an updated designer interface is to 
compress the time necessary to create a working prototype by making CAPS easier to 


use. A successful integration of an enhanced syntax directed editor would make CAPS 


more accessible to novices and allow experienced users to minimize time lost correcting 
errors during the prototyping cycle. This, in turn, will speed up the software 


development cycle. 


B. BACKGROUND AND MOTIVATION 


There is a problem with the creation of software today. It is costing the nation 
billions of dollars in failed projects and wasted efforts. Often the problem stems from a 
faulty design process. One solution to this problem, CAPS, is presently hampered by a 
poorly designed interface. Correcting this defect is one step toward solving the greater 
issue. 

The well-know truism, "time is money", is especially relevant in the design of 
software. Certainly, the longer a project takes the higher the cost for labor and materials. 
The truth of this is quite obvious. The desire to reduce costs and meet deadlines 
invariably results in constricted timelines for identifying requirements, outlining 
specifications, and creating a solid design. The rush to implementation allows a product 
to be swiftly pushed out the door, but a cost must then be paid in user satisfaction and 
maintenance. 

Time is money. As much as eighty percent of the cost involved in software 
production is maintenance [Ref. 4]. Yet that is not the least of the problem. In 1995, 
IEEE reported that for the Department of Defense (DOD) $42 billion in software 
programs were canceled due to overruns in time and budget or they simply did not 


perform as required [Ref. 4]. The waste of billions of dollars is not confined to the DOD. 


Other prominent debacles include the automated baggage system at the Denver airport 
and the IRS integrated data network. While expensive, these systems are cheap 
compared to the seven billion dollar loss involved in the destruction of the Ariane rocket 
[Ref. 14] and the death of 225 passengers in the 6 August 1997 crash of a Boeing 747 on 
Guam [Ref. 16], both attributed to software errors. 

Few of the problems with modern software systems involve poor coding. A 
NASA study performed during the Galileo project found that a full 98% of all software 
errors are traceable to incorrect requirements, specifications, or design [Ref. 4]. The 
advanced state of modern integrated development suites such as Aonix ObjectAda 7.1, 
Microsoft Visual Studio ‘97 and Borland C++ 5.0, combined with rigorous testing, have 
nearly eliminated implementation errors. Unfortunately, few tools exist for properly 
creating a design that faithfully represents the user's desire. CAPS is one of them. 

Designed for rapid prototyping of real time systems, CAPS is aimed at reducing 
software design errors by presenting the user with successively more accurate 
representations of the final product. In order to do this effectively, CAPS itself must be 
fast and easy to use. That requires an easily learned, intuitive interface. That is the 


rationale for this thesis. 
C. RESEARCH OBJECTIVES 


The objectives for this thesis include the following specific objectives: 


e Create parsers that correctly interpret the seven main elements of the 


Prototype System Design Language (PSDL). 


e Automate coding of large segments of the project using existing UNIX 


environment tools and software engineering procedures 
e Integrate the new parsers into a previously designed graphical editor. 


e Integrate the combined graphical editor/parser package into the main flow of 


the CAPS environment. 


e Document the flow of control and the design of data structures into a 


maintenance handbook to improve maintenance of this new enhanced version 


of CAPS. 


D. ORGANIZATION 


Chapter II provides a general overview of the workings of CAPS, PSDL and the 
need for and uses of rapid prototyping. Chapter III examines the processes and structures 
created during the analysis of the proposed evolution of CAPS for requirements, the 
specification of those requirements, and “i creation of a design for the modifications to 
the CAPS code, with emphasis on the requirements for the appropriate interfaces, data 
manipulation, and improvements in storage management. Chapter IV presents the 
implementation phase of the project as well as testing and evaluation of the new version. 
In Chapter V the results are presented, with discussion on the utility of the improved 


interface and maintainability of CAPS. Chapter VI summarizes the thesis. 


il. BACKGROUND 


A. INTRODUCTION 


The creation of a modern graphical editor for CAPS is a project that has been 
envisioned since 1991. By 1997 it became imperative that this goal become a reality for 
two major reasons. 

The first is the state of software development. There is a software development 
crisis looming over the information age [Ref 8]. The rapid increase in the speed of 
computer hardware and the use of computer technology has not been matched by a 
corresponding improvement in software design. Software design has not only failed to 
keep pace, but has increasingly been the reason for late projects, exceeding budgets, and 
often complete failure of projects. This amounts to what was coined in 1968 as ‘The 
Software Crisis'. This crisis has as its root cause the problem of complexity (brought 
about by sheer length of programs) combined with a poor control over how each line of 
code affects the overall system [Ref. 17]. These problems can often be corrected by using 
an alternative software development model. In many cases, rapid prototyping is a better 
method for designing software than current methodologies and CAPS is a powerful tool 
that could formalize the creation of software, if it achieves acceptance on a wide scale. 
Acceptance of CAPS on a wide scale requires a modern user-friendly interface. 

The second reason is the participation of the Software Engineering Group in the 
DOD’s Technology Transfer Program. The Department of Defense sponsors billions of 


dollars in advanced research yearly. In order to enable the various research laboratories 


within the DOD to reap the maximum benefit from this effort, the Office of Technology 
Transition (OTT) was established. OTT serves as a clearinghouse for coordinating and 
facilitating the transition of such technologies and technological advancements within 
the DOD to other military organizations and the private sector. CAPS has been 
distributed throughout the DOD as a result of this program, and is in use by a large 
number of organizations. A number of these supporters have requested that 
improvements to the interface and in storage management be included with an enhanced 
version. In order for the enhanced version to be available for pending projects, its 


creation was necessary as soon as possible. 
1. The Computer Revolution And The Software Crisis 


The Information Age is here and is expanding at an extraordinary rate. The 
burgeoning use of computers and information systems in nearly every aspect of daily life 
is undeniable. Microprocessors and software programs inhabit our automobiles, 
videocassette recorders, coffee makers, and calculators. Fifty-one million Americans 
regularly access the Internet [Ref. 1] and it is the stated goal of the United States 
Government to place every classroom in the nation online. Riding the wave of 
computing power created by the realization of Moore’s Law [Ref. 15], the use and scope 
of automated systems are increasing at a geometric rate. 

Unfortunately, the same cannot be said for the state of software development. 
While microprocessor speed continues to double every 18 months, the creation of 


software remains labor intensive. Success is heavily dependent upon the skill and 


experience of the individuals involved in production. Improvement is linear, if at all. 
Errors are common. The costs for labor are high, with starting salaries over $50,000 
common for recent four-year computer science graduates [Ref 13]. Complicating this 
equation is the continuing decline in the number of skilled professionals capable of 
producing high quality software. Over the previous decade, the number of degrees 


awarded for computer science in the U.S. has dropped an astounding 42% [Ref. 13 ]. 
2. The Rapid Prototyping Solution 


With demand for faster, better, bigger, and more complex software accelerated by 
the explosion of information technology and automated systems, the cost of increasingly 
scarce software expertise has risen in tandem. It has become incumbent upon software 
manufacture's to maximize the productivity of software designers, engineers, and 
programmers in order to remain competitive and meet demand. This is where the utility 
of integrated rapid-prototyping environments such as CAPS becomes important. By 
enhancing the effectiveness in identifying and specifying requirements, CAPS decreases 
errors, rework, and reduces the overall time to complete a software project. . However, 
for CAPS to be seriously considered as a viable alternative solution it must be easily 
understood and used. It is the intent of this thesis to make CAPS a more attractive 
alternative to other software development systems by creating an intuitive, user friendly 


interface. 


B. SOFTWARE DEVELOPMENT SYSTEMS 


1 The Waterfall Model 


Problems exist with the predominant software development methodology, the 


Waterfall Model (Figure 1.). The Waterfall Model is a linear plan for the production of 
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Figure 1. Waterfall Methodology for the 
software life cycle. 


software. The user and the designer analyze the users needs and produce a set of 
requirements that are used to create the design for the software system. The program is 


implemented, tested, and then returned to the user for validation. 


Unfortunately, most errors occurring in software are requirements based. This 
stems from the imprecise communication that often occurs between the end user, who 
understands the problem domain but not software design, and the software designer, who 
understands software development but usually possesses little knowledge of the problem 
domain. The user, who is the ultimate arbiter of what is correct in the software, is unable 
to validate a system effectively until a working version is produced. At this point, a large 


portion of the development time and budget has been expended, leaving little time or 
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Figure 2. Relative cost for error correction over the software life cycle. [Ref. 4] 


money for corrective action. Furthermore, an invalid requirement at this stage has 
affected large portions of the implementation code, resulting in a 100 fold increase in the 
effort necessary to correct the mistake over detecting the same error before 


implementation had taken place (Figure 2). 


2 Rapid Prototyping 


One workable answer to the problem is rapid prototyping. As illustrated by 
Figure 3, rapid prototyping does not rely on validation of a finished product. As in the 
Waterfall Model, the users initial goals are analyzed and a set of requirements created. 
These are used to create a partially functional prototype that can be demonstrated to the 


user. The user then assists in identifying faults in the design of the system very early on, 
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Figure 3. Rapid Prototyping Software Life Cycle. 
before valuable time and money are poured into propagating those faults through the 
entire system. 

The payoff for using rapid prototyping is evident. Requirements are often 
changed repeatedly by users who are initially unsure of the functionality required, leading 
to wasted effort and frustration. Rapid prototyping obtains user feedback and solidifies 
requirements early, providing a clear path for future progress and reducing friction 
between user and designer. 

In traditional software development, specifications evolved from the user 
requirements are presented in written form or a formal specification language. Neither of 


these methods are suitable to users with little or no knowledge of software design. 
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Misunderstandings result. Rapid prototyping allows the user to perform validation on 
executable specifications. For example, if a user requires the system to initiate the firing 
sequence of a rocket motor when a certain air speed is reached, a prototype of the system, 
complete with simulations of the missile hardware, can be completed and demonstrated 
to the user long before a physical prototype could be delivered and at a fraction of the 
cost. The user could then evaluate the prototype's performance based on whether the 
rocket's motor was signaled to ignite at the appropriate air speed without actually having 
to launch the missile. This interaction between the user and actual working prototype 
results in a clearer understanding by both the user and designer of what the user truly 
desires. 

The risk of failure in software development is considerable. Colonel Chadwick, 
the commander of the Marine Corps Tactical Systems Support Activity stated that 
software projects with a budget in excess of $100 million had a 100% failure rate [Ref. 
18]. Unfortunately, this is not an isolated phenomenon. In 1995, DOD wide, only 16% 
of software programs were completed on time and on budget. Furthermore, an 
astounding 31% were cancelled entirely (Figure. 4). Rapid prototyping can help resolve 
this problem. Large and complex systems can be modeled quickly, concentrating on the 
design of the software architecture while leaving the details for later implementation. 
This allows the user and designer to perform risk assessments and feasibility studies 
using the prototype. This is preferable to waiting for delivery of the beta version of the 
total system, when time and budget are nearly exhausted and changes are much more 


expensive. 
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Figure 4. DOD software delivery statistics for 1995 [Ref. 4]. 


While the advantages of prototyping are many, the prototyping process must be 
fast in order to be effective. The designer has limited time in which to create the final 
product and the sooner the prototype receives final validation from the user, the sooner it 
can be forwarded to the programming team for optimized implementation. This implies 
automation. Automation can generate code faster and more accurately than any human 
programmer as well as provide organization to help with decision support. Database 
software can automate searching through a system to find code that meets specific design 
requirements. Allowing software to perform tedious and time consuming tasks can be 


used to speed up nearly every aspect of the project. 
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o The Computer Aided Prototyping System (CAPS) 


CAPS supplies the automation that rapid prototyping requires. Hosting an array 
of tools to assist in producing a prototype in minimal time, CAPS is a completely 
integrated software design environment. The major areas of automation support provided 
by CAPS are designer interface, software databases, execution support, and an evolution 
control system. Combined, these tools allow the designer to perform all the necessary 
functions required by the validation cycle of the rapid prototyping model (Figure 5). 


The designer interface contains the syntax directed editors and consists of: 


e Editing tools for the Prototype System Design Language (PSDL). 
Consisting of the Graphical Editor and the PSDL Editor, this is the portion 


of the CAPS system concerned with creating and modifying prototype 
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Figure 5. CAPS prototype creation flow diagram. 
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designs. It is also the major subject of this thesis. 


e An Ada programming language editor. CAPS currently uses the Verdix 
Ada83 editor for creating and modifying Ada modules for use in the 


CAPS system. 


e A requirements editor. The requirements editor allows for creating, 
updating, and tracing the accomplishment of user requirements over the 


life of the prototype. 


e An interface editor. Currently the interface editor is The Transportable 
Applications Environment (TAE) Project , a state-of-the-art user interface 
development and management system. The interface editor allows the 
designer to rapidly create a graphic user interface from which to display 


and input data into the prototype. 


These tools are included to assist the designer in rapidly entering information 
pertinent to the creation of the prototype. Speed is important. For the selection of 
editors, a premium was placed on propagation of appropriate constraints, preventing 
syntax errors, and providing for robust error diagnostics. Propagation of constraints is a 
necessity to ensure that the final product performs within limits initially set by the user. 
Prevention of errors and robust diagnostics serves a dual purpose. In the early stages of 
prototype design, the detection and elimination of errors is much less costly than 


correcting the same error later in the development cycle. The reduction in the number of 
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errors in the design also serves to reduce the time required to create a prototype, allowing 
a working prototype to be demonstrated to the user quicker. 

The Database consists of two sections: 

e The Design database. The design database provides for the storage of 
prototype development data. This allows a designer to search the database for 
previous prototypes that may have components that fit functionality in the 
present design. Allowing reuse of prototype components not only speeds up 
the process, but reduces errors as completed prototypes have been tested 
repeatedly during the rapid prototyping cycle. 

e The Software database. Just as the design database allows reuse of existing 
prototypes, the software database lets the designer search for reusable Ada and 
PSDL components. Additionally, since PSDL specifications are formalized, 
they can be used as the index for a database query that returns a component 
that is a very accurate match to what the designer needs. 

Execution support provides compilers and other tools necessary to convert the 

PSDL code and graphs into a working real-time prototype. Execution support allows the 
designer to make an executable prototype a reality in four easy steps. 

These are: 

e The Translator - translates PSDL language to Ada code. 

e The Scheduler - creates schedules for execution of a real-time prototype with 


corresponding Ada code. 
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e The Compiler - compiles Ada code into executable form, presently Sun Ada 


version 1.1. 


e The Execution Shell- opens a shell in which to run a prototype. 


4, Prototype System Design Language (PSDL). 


PSDL is the design language that supports CAPS. Standard programming 
languages are optimized to support efficient execution of a program. They consist of 
complex algorithms and data structures for creating small, fast executables. They are 
quite detailed and require a well-trained programmer in order to be used efficiently. 
Design languages are quite different. Execution is not the prime motivation. The 
objective is the creation of an efficient and easily understood design. Because of this, 
design languages are more expressive and simpler to use. Furthermore, where 
programming languages provide for comments as an adjunct to the main functionality, 
design languages have the recording of goals and justifications as a prime objective. 

PSDL achieves these goals. Based on a simple grammar and a graph, PSDL 
provides for easy understanding of the language while yielding a powerful ability to 
create prototypes. 

The most basic building blocks of PSDL are operators and streams. They 
represent the two things that can be done with data: manipulation or relocation. 


Operators are functions (or state machines) and streams are data flows. 


Operators have three manifestations. Ordinary operators, represented by circles in 
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Figure 6. Graphical Interface for CAPS. 
the example of the graphical editor shown (Figure 6) perform operations on the data from 


the streams. Composite operators, designated by a circle with a double ring, represent a 
sub-graph. Sub-graphs are standard PSDL graphs, and are represented by composite 
operators for the sake of clarity. A graph would rapidly become cluttered and confusing 
without the ability to compress functional areas into composite operators. Decomposition 
of functionality is easily achieved using this construct, as composite operators can 
contain other composite operators, allowing decomposition to continue until only simple 
atomic functions remain. Terminators represent sources of input external to the design. 


Terminators are simulations of external systems, are not required for the prototype, and 
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will not be in the delivered software. The third kind of operator is the type operators used 
to represent the functionality of abstract data types defined by the user. 

A stream is a communications link connecting two or more operators and is 
represented in the GE by a line connecting operators. Operators are producers and 
consumers. A stream requires at least one operator, producer or consumer. There are two 
. types of streams available in PSDL, dataflow streams and sampled streams. The 
dataflow stream works on the first in, first out principle. Data values are never lost or 
replicated. Sampled streams model continuous data input. Only the most recent data 
value is used by the consumer with all others being lost. 

Triggers are control constructs that act as decision points on the firing of 
operators as a result of receiving data through a stream. Triggers can be set to fire in the 
event that some or all of a set of data is present. Execution guards are the constructs 
within the operator in which triggers operate. If no execution guard is present within an 
operator, the default causes the operator to always execute. Execution guards and 
triggers can be thought of as implementing an if-then-else programming control structure. 

Operators can also be fired through the use of a timer. Timers are software 
stopwatches that are declared within a composite operator and hold a time expression 
that, while running, is continuously updated to record the passage of real time. Timers 
have three control constraints that affect the value held by the timer. They are START, 
STOP, and RESET. Start obviously causes the timer to run. Stop freezes the current 


value. Reset returns the current value to zero. 
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Like tnggers, timers, and execution guards, other output guards exist to assist the 
user in controlling the flow of a program. Output guards allow conditional transmission 
of data to an output stream. Output guards are assigned by stream and are normally used 
to filter output to the remainder of the program. This allows a multiply threaded stream 
to pass data selectively rather than broadcasting to all. 

PSDL is a real time prototyping language. As such, timing constraints are a 
necessary part of the language. The most important of PSDL's timing constraints is the 
maximum execution time (MET). The MET is the maximum amount of time that the 
operator 1s allowed to complete its activities. The addition of a MET constraint to an 
operator defines that operator as time critical and thus subject to timing constraints. Two 
types of time critical operators, periodic and sporadic, are used within PSDL. 

Timers trigger periodic operators. A value respresenting the period of the 
operator is set to a time value. When the timer reaches that value, the operator is allowed 
to fire. It is not necessarily required to fire immediately. A second value, finished within 
(FW), is provided to allow flexibility in scheduling. After the operator is triggered by the 
period, the program can delay execution of the operator as long as the operator is 
completely executed prior to the arrival of the FW time. 

Sporadic operators are triggered by the arrival of data. These operators are 
executed whenever data arrives subject to the minimum calling period (MCP) of the 
operator. The MCP is a time value. If a sporadic operator executes, it cannot be 
executed again until the time indicated by the MCP has elapsed, regardless of the receipt 


of data. This allows the designer to sample data at intervals, and prevent responses to 
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every byte of data sent to the operator. Sporadic operators also require a maximum 
response time (MRT). The MRT is the maximum amount of time that can elapse 
between the arrival of data and the completion of the operation. This constraint provides 
the designer with a mechanism to ensure that critical work is completed within a known 
amount of time. 

Operators also contain data elements that assist human users in understanding the 
purpose of that component. The description element allows the designer to place a 
natural language description of what the operator does within the structure of the PSDL 
code. This acts much like a comment would in a programming language. Keywords are 
also employed by PSDL. The keyword component allows the designer to place natural 
language identifiers within the prototype in order to assist future designers in evaluating 
the component for reuse. Keywords are used by the database as indices for queries. 

Composite operators contain one other construct of interest, the graph description. 
PSDL provides for a component that describes the design graph of a decomposed 
composite operator to the graphical editor. The graphical editor translates this 
component in order to display the design within the editor window. A complex structure, 
the graph description contains coordinates, colors, fonts, and all visual-components of 


child operators and streams. 
C. THE DESIGNER INTERFACE 


The graphical editor and the syntax directed editor are two representations of the 


same PSDL code. The graphical editor displays a truncated version of the code based on 
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the objects comprising a PSDL graphic. The syntax directed editor displays the hidden 
information that gives the prototype depth. When CAPS was originally designed, the use 
of graphical interfaces was a rarity and they were often poorly designed. Designers also 
prefered to directly access the PSDL code if they wished. These decisions are no longer 
valid. Graphical tools are much better and abstraction in software design is realized to be 
essential for truly understanding a system. There is no inherent reason for this separation 


of PSDL code into two separate interfaces. 
1. The Graphical Editor (GE). 


The graphical editor 1s the portion of the designer interface with which the 
designer creates the graphical representation of the prototype (Figure 6). The GE is 
simple in design and execution, allowing novice operators to begin creating real-time 
prototypes using the basic stream and operator objects with little formal training. With the 
use of the Quickstart manual for CAPS, a novice can create a simple prototype within 
minutes using only the graphical interface. Although a powerful concept and tool, the 
CAPS graphical interface is unable to deliver the necessary functionality required by more 
complex prototypes. For this, CAPS provides a syntax directed PSDL editor that works in 


conjunction with the graphical interface to produce a working design. 
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De Syntax Directed Editor. 


The CAPS syntax directed editor (SDE) displays the text version of the PSDL 


? 


prototype — the part that the translator converts to programming language code (Figure 7). 
The SDE allows the designer to perform detailed, advanced PSDL programming. It is the 
principal interface for the designer, allowing the creation, editing and viewing of CAPS 
designs. PSDL language code generated by creating a design is modified within the 


SDE. The SDE also provides access to a wide variety of tools, such as the ability to 


f psdl_editor;c3i_systenm, psdl je 
CAPS-OQnds File Edit View Toots Options Structure Text elt 


| Read /imp_mnUn/sunsSSfwortkumock/.capsicsi_system/1 .1ic3i_system psdl 


of input sensor data} 
END 
IMPLEMENTATION ADA analyze_sensor_data 


END 
OPERATOR cji_system 


- WARNINGS, ERRORS AND ALERTS: 


=a 


-- This Is A Root Operator 


SPECIFICATION 
DESCRIPTION 
{This module implenents a simplified version of a generic C3I workstation. } 
END 
IMPLEMENTATION 
GRAPH 


--_see graph viewer for details -- 


DATA STREAM 

comms_email - filenane, 

comms_add_track : add_track_tple, 

tdd_filter - set_track_filter, 

out_tracks  track_tuple, 

weapons_emrep : weapon_status_report, 
input_link message - filename, 

initrate_trans : initiate_transmission_sequence, 
terminate_trans : BOOLEAN, 

tcd_emission_control : enissions_control command, 
tcd_network_setup - network_setup, 
tcd_archive_setup archive_setup, 
ted_transmit_command : transmit_command, 
position_data : ownship_navigation_info, 
sensor_add_track : add_track_tuple, 





Figure 7. PSDL Editor. 
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query the software database, that assist the designer in creating a prototype. 

The separation of these two editors is also the major deficiency in the design of 
CAPS release 1.0. As early as 1990 users of CAPS were underscoring the need for a 
syntax directed editor combined with the graphical editor for generating PSDL code [Ref. 
2]. The necessity of writing PSDL language code in the SDE brings with it the entire 
training overhead associated with programming languages. Furthermore, since the 
modification of the design in the GE almost always requires a corresponding change in 
the SDE, the division of the two editors into separate windows has no practical purpose to 
justify the cumbersome environment. Merging these two windows and their underlying 


functionality is the major objective of this project. 


3: PSDL parsing. 


A syntax directed editor assists the designer in creating a prototype by 
automatically checking the PSDL language code for appropriate structure. For the 
purposes of this project, PSDL has seven major constructs that may be input into the 
graphical editor. Each of these constructs must be checked for syntax errors. Needless to 
say, the descriptions of the seven parsing elements are truncated. The full specification 
of the meanings of each can be found in Appendix D. 

The seven constructs are: 

e Expressions: Expressions represent a wide range of tokens within PSDL. An 


expression can be a string, an integer literal, Boolean expression, a type 
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operator identifier, time value, data stream, timer or a combination of the 
above. Example: X > 2. 
Initial expressions: Initial expressions are exactly the same as an expression 
except references to time values, timers, and data streams are excluded. 
Example: Y =3. 
Output guards: A set of logical statements initiated by the OUTPUT token, 
output guard statements consist of a list of identifiers followed by IF, then an 
expression and ending with a requirements trace. For example: 

OUTPUT temperature IF x<2 req] 
In this example temperature is a data stream. When the stream is triggered, if 
x 1S less than two, then requirement #1 is fulfilled. 
Timer operations: Timer operations start with a timer_op token. This consists 
of one of three values - Start, Stop, and Reset. The timer_op token is followed 
by the identifier (name) of the timer performing the operation. This is then 
followed by the IF token, an expression, and a requirements trace. This works 
in the same manner as the output guard, with the exception that the expression 
is evaluated when the timer performs the action represented by the timer op 
token. Example: 

START TIMER 

timer] 
Operator specifications: A sequence of attributes and requirements traces 


comprise the body of this structure, starting with the OPERATOR token and 
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an identifier, followed by the SPECIFICATION token and concluding with an 
END token. An attribute is simply a characteristic of an operator, such as an 


input, output, state or an exception. Example: 


OPERATOR SProducer 1 
SPECIFICATION 
GENERIC 
Gl : FLOAT 
SUTeUn 
DA : Missing Info 
MAXIMUM EXECUTION TIME 0O MS 
END 


Type specifications: This element begins with TYPE token and an identifier 
followed by a SPECIFICATION token and ends with an END token, in the 
same manner as the operator specification except the interior is more complex. 
This component describes the attributes of a user-defined type. Generic 
declarations are parsed first, followed by a set of operator specifications as 
described above. A final list of functions available to the type completes the 


structure. Example: 


TYPE STACK 
SPECIFICATION 
GENERIC 
types : private 


EVO a2 Dui Cc 


OPERATOR PUSH 
SPECIFICATION 
INPUT 
I : INTEGER 
INPUT 
Seo LaACk 
OUTPUT 
See LACK 
END 


OPERATOR POP 
oPECIFICATION 


Ze 


tNEGs 
S 5 oO LACks 
OUTPUT. 
Ts ENG 
OUTE UA 
S : STACK 
END 


OPERATOR Empty 
SPECIFICATION 
OUTPUT 
dummy : STACK 
END 
KEYWORDS 
stack, adt 
DESCRIPTION 
{This is a generic stack adt} 
AXIOMS 
{push (s,x) = s::x} 
END 
e Exception guards: Exception guards begin with the EXCEPTIONS token 
followed by an identifier. The IF token is next followed by an expression and 
a requirements trace. With the exception of substituting the EXCEPTIONS 
token for the OUTPUT token, the exception guard and output guards are 


identical. 


4. Previous Work. 


The grammar necessary for creation of the seven parsers that were created in this 
thesis was already a part of the original CAPS code created by Professor Luqi. This 
code was combined in the Aflex and Ayacc files for parsing PSDL code as a whole 
language. The work necessary for converting these files into useful material for this 
project consisted of identifying and separating the syntax elements of a particular PSDL 


component from the overall grammar. This greatly simplified this portion of the project. 
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Originally, a commercial graphical editor had been selected for use with the new 
version of CAPS. A powerful tool, it also provided a very intuitive user interface. 
Unfortunately, licensing restrictions connected to this product would have seriously 
hampered the free use and distribution of the completed system. As an alternative, a 
graphical editor created as a class project by NPS graduate students, under the guidance 
of Professor Mantak Shing , was selected. Although not as robust and extensive as the 
commercial version, enhancements added by Ken Moeller, a graduate, have made it a 


viable and cost effective replacement for the commercial graphical editor. 


D. SUMMARY 


Rapid prototyping 1s a viable solution that 1s available now that can alleviate 
many of the problems presently experienced by the software industry. CAPS is an 
excellent system with which to create prototypes. An effort to improve the efficiency 
with which a software prototype designer can use CAPS by simplifying and enhancing 
the interface is valuable to the Naval Poe raduaie School, the DOD, and the software 
development community as a whole. An improved interface allows prototypes to be 
developed more accurately and in less time. The reduction in time to create a prototype 
version creates a corresponding reduction in time to produce a user-validated design. An 
improved interface reduces errors; again saving time spent correcting implemented code. 

The interface is essential in creating an effective CAPS environment. An 
effective CAPS environment is important in extending the use of rapid prototyping. 


Extending the use of rapid prototyping will reduce the amount of late, poor, or simply 
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unusable software being produced. This is a small step on a road that can save the DOD 


and the nation billions of dollars. 
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Ii. ARCHITECTURE OF THE PSDL EDITOR 


The Software Development Method is normally divided into five distinct phases: 
Requirements Analysis, Functional Specification, Architectural Design, Implementation, 
and Evolution and Repair [Ref. 5]. This chapter will record the first three phases as they 


occurred during the project. 
A. REQUIREMENTS ANALYSIS 


Requirements analysis begins with the receipt of an initial problem statement 
from the customer. The CAPS team possessed an advantage in this respect, being the 
customer and the designer. The initial problem statement was quickly developed as: 


The purpose of the proposed software system is to provide a more efficient and user friendly 


interface for the CAPS environment. 


The goals of requirements analysis are to define the purpose of the proposed 
system and to determine the constraints on development [Ref. 5]. To achieve this, the 
initial problem statement is reviewed in the context of the environment. Specific 
requirements and constraints for the combined graphical editor are then developed. 

Three specific requirements for the system were developed: 

e Create seven PSDL parsers to be integrated into an existing graphical 
interface that will allow syntax directed editing of PSDL components from 
within the graphical editor. The editors must check one of the previously 
denoted PSDL constructs for accuracy, and return an error location in the 


event that a syntax error is discovered. 
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e Retain all the functionality of the present SDE and graphical interface. It is 
necessary to retain all functionality in order to ensure that prototypes currently 
developed under CAPS 1.1 are usable in the new version being developed. 

e Remove the memory leak present in the current version. The failure to 
reclaim memory following the destruction of temporary data structures causes 
the previous version of CAPS to slowly drain resources from the overall 
system. Over time, if CAPS continues to run, all memory resources are 
exhausted and the system fails. The new system will rigorously recycle 


memory freed when data structures are no longer necessary and are destroyed. 


Constraints on development must also be addressed during requirements analysis. 
Constraints are limits which the designer is required to respect in the construction of the 
proposed system. There are many ways in which constraints can be documented. For the 
CAPS project, constraints were divided into five categories: Resources, Performance, 


Environment, Form, and Method. 


1. Resources. 


Time to complete the project was limited. The Software Engineering Group at 
NPS participates in the DOD technology transfer program. As such, a number of 
organizations were dependent upon the next release of CAPS to accomplish their own 
objectives. Although the original delivery date was set for 17 July 1997, a more realistic 


assessment rescheduled the delivery of the product on 12 August 1997. 
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Manpower was also limited. The CAPS team consisted of seven members. 
Furthermore, only four of the seven were available for full time work on the project. 
Given that the project resulted in the modification of 65,000 lines of code, having only 
seven people provided a limited pool of man-hours from which to draw. 

Budget considerations were minor in comparision to a comparable software effort 
within the private sector. Over the course of the project 3024 man hours were expended 
or about one and a half man-years. At current labor costs for software 
programmers/designers this would have represented an investment of approximately 


$100,000. Other budget costs were inconsequential. 


a Performance. 
Constraints on performance were limited to insistence that memory storage 


management be rigidly controlled to correct the memory leak in the original release. 


3: Environment. 
The targeted system was to use SunOS 4.1.3 operating on a Sparc 10 workstation 
The system will have Motif X.11 available. No other environmental constraints were 


imposed. 


4. Form. 
The system would be implemented in Ada95S to assist in maintainability, and the 
Graphical Editor (GE) developed and enhanced by NPS graduate students would be 


incorporated into the design. 
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5. Methods. 


There were no constraints assigned in regard to methods. 


B. SPECIFICATION 


The goal of the functional specification stage is to define precisely the external 
interfaces of the proposed system [Ref. 5]. The process of integrating the graphical editor 
(GE) into CAPS and integrating a PSDL syntax directed editor into the GE creates an 
unusual situation where interfaces that normally would be considered internal are 
external for our purposes. Three interfaces need to be considered (Figure 8). 

The first interface for specification is between the CAPS prototyping menu and 
the PSDL editor. The action taking place consists of passing the name of the PSDL file 


to the PSDL editor. Passing of data occurs in only one direction. One argument is 
CAPS PSDL CAPS 
Prototype Editor Prototype 


Graphical 
Editor 


Parsers 


Figure 8. PSDL Editor Architecture. 
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required. It must be a string with a length of at least six characters, the last five of which 
match the string “.psdl’. 

The second interface is also between the PSDL editor and the CAPS Prototype, 
except in the opposite direction, and requiring different arguments. This is not a direct 
call but rather an implicit obligation on the part of the PSDL Editor to supply useable 
PSDL code for translation. As such, the specification for this interface required that the 
PSDL Editor save a valid PSDL prototype to the file called when the editor was 
initialized. To accomplish this interface, a filename must be supplied that is exactly the 
same six character string as in the first interface. It must also have a valid PSDL 
prototype, an abstract data type defined in the editor , to save to the file. 

The third interface is between the PSDL Editor and the GE. This interface passes 
data in both directions, with the editor feeding the GE the graph description of the 
prototype and the GE returning that description along with the users choice for the next 
action to be performed and any error messages that may be necessary. The transfer of 
information in this interface is complicated by the difference in languages between the 
two modules. Fortunately, data types exist within the PSDL Editor that fit the needs of 
the interface. The graph can be passed using an in/out parameter Graph_Desc_Node, the 
action will use an out Action type, and the error messages will also be an out parameter of 
the type error_msg. The Action and error_msg types are simply enumerations and are 
readily converted to structures of the C programming language. The Graph_Desc_Node 
is a specially constructed data type consisting of C compatible structures designed for 


passing graph data. 
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The final interface joins the GE and the parsers that make up the SDE. Again, a 
cross language exchange of data is necessary and again, data flows in both directions. 
The data that needs to be exchanged consists of a character string that requires parsing for 
correctness, a Boolean variable designating whether the string passes the parsing test, and 
integers designating the line, column, and length of the first error discovered. As the C to 
Ada library of functions and available data types is not as extensive as the reverse, the 
interface used C pointers., which can be readily converted in Ada95, providing access to 


each of the five data elements being passed. 


Ge DESIGN 


Design encompasses the decomposition of the system into software modules. 
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Figure 9. Functional Decomposition of the PSDL Editor 
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Many of the modules were already in place and only required modification, which was 
extensive in some cases. However, a description of the improved PSDL editor is in 
order. As an aid to understanding, Figures 9 - 13 show the PSDL editor being used to 
model and prototype the PSDL editor. 

At the top most level, the PSDL editor is expected to perform two functions 
(Figure 9). Upon initiation the program receives a PSDL filename as an argument from 
the command line of the operating system. The Open function takes that filename and 
searches the default prototype directory in search of the named file. If it exists, it is 


opened and the prototype name contained therein is passed to the next function, 
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Figure 10. Functional Decomposition for Edit_Program 
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edit program. If the file is not found, a new file is created using the given filename and 
an empty prototype is forwarded. 

Edit_program receives the prototype name, manipulates its contents and then 
returns the modified program to file. Edit program, because of complexity of the tasks 
assigned, must be decomposed further (Figure 10). 

When initialized Edit program begins by assigning the prototype an unique 


identification number. This allows the system to recognize the prototype uniquely even 
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Figure 11. Functional Decomposition of Edit_Operator 
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if the user eventually creates other components using the same name. After assigning the 
identity, read prototype reads the entire PSDL program from the file into a skeleton 
prototype data structure. The prototype is then subjected to semantic checks to ensure 
that the program is in a useable format and not corrupted in any way. The verified 
prototype is then ready to be edited by the GE. This is performed within the substructure 
of edit_operator, which will be detailed below. Upon completion, edit operator will 
have received the modified prototype and an action code indicating the user preference 
for further use of the system. Update action tests the action returned and performs the 
necessary action, such as save to file or revert. Reinvoke is then initiated, testing 
whether further action is required. If true, the program loops back to semantic check 
and performs the cycle again. If false, the Close function closes the opened file and 
returns control to the operating system. 

Edit_operator performs only three functions, but they are vital to the interface 
with the GE (Figure 11). First, user defined types and operators are separated within the 
operator list. This is necessary because types and operators display difference 
characteristics and must be manipulated in different manners in order to present the GE 
with a useable graph. The separation results in two lists of operators and types. These 
lists and a blank graph data stucture are passed to make graph desc. Make_graph_desc 
takes the PSDL data presented and manipulated it to form a graph description. The graph 
description is a data structure that represents all the information contained in the 
prototype, converted to use C language conventions. This allows the edit_graph inter- 


language function call to import the data for use within the GE. Upon completion of user 
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action, the GE returns the graph description to edit operator along with the user's next 


requested action. 
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Figure 12. Functional Decomposition of Save_To_Disk 
Save_to disk, the most typical of users actions, also needs to be reviewed. It 
consists of two functions, update_prototype and save prototype (Figure 12). Both 
functions do what their names suggest, updating the PSDL prototype (as opposed to the 
C oriented graph description) and saving the prototype to the file. Of the two, 
update prototype deserves closer inspection. 
Update_prototype is the function that unwraps the changes performed within the 


GE and converts them into PSDL code that is useable by the remainder of CAPS. It 
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Figure 13. Functional Decomposition of Update_Prototype 
consists of six subfunctions (Figure 13). The first function is build_edited_types. The 
second is build edited _operators. These two functions review the graph description 
returned by edit_graph and determine which types and operators have been changed. 
The PSDL structure is then modified to reflect the changes. Upon completion of these 
updates, the children of modified composite operators must be updated, as well as any 
grandchildren, etc. Modify children performs this task using a recursive structure that 
checks for changes rippling through to each operator from the root down. After the 


children are checked for changes, the type operations are updated. At this stage, all 
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modifications performed within the GE will have been implemented in PSDL structure. 
Unfortunately, the GE will not provide data on operators that were unchanged. This 
requires that a function be created to check the original prototype against the one being 
built and add any unmodified operators back into the prototype. The final action in the 
reconversion of the graph description is synthesize inferred parts. This function 
evaluates changes made by the GE that would effect other portions of the PSDL code 
indirectly, such as the setting of terminator flags, type definitions, and exception 
declarations. 

A final note on the design of the seven PSDL parsers is in order. The parsers 
were designed to accept a string for an argument, and return an error message and error 
location. All are C structures. This allows each individual parser to be called directely 


from the appropriate place in the graphical editor. 


D. SUMMARY 


This chapter detailed the first three of the five phases (Requirements Analysis, 
Functional Specification, Architectural Design, Implementation, and Evolution and 
Repair) of the software development methodology for the enhanced PSDL Editor. The 
next chapter deals with its implementation, and the fifth phase, Evolution and Repair, will 


be discussed in Chapter VI. 
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IV. IMPLEMENTATION 


Implementation is the fourth phase of the software development cycle. In this 
chapter we will cover the aspects of implemention as they applied to the enhanced PSDL 
Editor project. The tools used, the approach to attacking the problem, and the process by 
which the project was completed will be covered. Repair and Evolution (R&E) is the 
final phase of the software development cycle but is properly outside the scope of this 
paper. Testing and evaluation are normally considered as part of this phase and were a 


very important part of this project and will be covered in the place of R&E. 
A. TOOLS AND ENVIRONMENT. 


Tools can make or break a software development effort. The CAPS group 
attempted to assemble a comprehensive suite of tools that would meet our requirements 


at a minimal expense. 
1. Introduction. 


When a project expands to larger than a few hundred lines of code; extensive 
hand coding cannot be done. Hand coding introduces errors and becomes an 
unacceptable risk to the robustness of the final product. The proper line of attack 1s to 


use pre-existing tools in order to automate large portions of the implementation process. 


4] 


2: Environment. 


The environment for the project was standard for work in the software 
engineering lab at the Naval Postgraduate School. The project code was created on a Sun 
Micro Systems Sparc 10 workstation networked within the software engineering 
laboratory subnet, which in turn is linked to the computer science department network. 
Keeping the project confined to a subnet allowed work to continue at all times, even 
when the larger department net was offline for backups. 

The operating system installed on the test system was SunOS version 4.1.3. 
Chosen for proven reliability and known compatibility with the present CAPS system, 
version 4.1.3 1s the dominant operating system within the NPS computer science 
department, ensuring widespread compatibility of newer CAPS versions with the 
department at large. One account was used for the entire project with each member of 


the team having access. 
3: Languages. 


Programming languages for the project were chosen in deference to the 
constraints applied to the project by previous work. 

Ada95 was selected as the main language for working within the main SDE 
modules. The original version of CAPS had been implemented using Ada83 in 
accordance with the DOD Ada mandate being enforced at the time. Ada95 is a logical 
choice as a successor for that reason alone. However, Ada95 has advantages that would 


have resulted in its selection regardless. Like CAPS, Ada95 is designed for software 
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engineering. Ada95 includes all of Ada83's discipline enhancing aspects, such as strong 
typing and information hiding, which made Ada83 the language of choice for large and 
complex projects [Ref 9]. In addition, Ada95 is now object oriented, adding flexibility to 
robustness. Using Ada reduces the cost of initial development of software and 
significantly reduces the risks involved in program development. Maintenance costs are 
reduced. Ada is especially useful for projects that involve a large number of personnel. 
Although this project used only seven team members, the nature of work at NPS has 
shown that working groups expand and contract. Ada’s readability supports easy 
understanding of code without recourse to extensive commenting. This is an essential 
feature for long term projects, and CAPS, now operational for nine years, is a long-term 
project. 

GNAT (GNU/NYU Ada Translator) Ada95 version 3.09 became the main 
compiler. A perfectly serviceable compiler, GNAT was the first compiler to implement 
the Ada95 design [Ref. 7] . It is certified. It was also documented as supporting the 
Unbounded Strings abstract datatype, which contained the key functionality for 
enhancing storage management, a key requirement. Finally, cost is always a 
consideration, and GNAT provided the features needed by the project at no cost. 

The choice to use the C programming language was also determined by the 
requirements of the project. The existing graphical editor to be integrated into the CAPS 
program was created using C. Although regrettable from the standardization and 
maintenance points of view, the original creators of the graphical editor did have good 


and sufficient reason for choosing C in that the X.11 Motif function calls necessary for 
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building a windowing environment were all in that language. Fortunately, experience in 
the C language is widespread and a number of team members were quite proficient in its 
use. 

The C compiler chosen for the project was "gcc", the gnu C compiler, which 1s 
included as a standard part of SunOS. The reasons for its acceptance were the familiarity 
of the compiler to the team members and, as with the GNAT Ada95 compiler, it was 
available at no cost. 

"Awk", though called a programming language by it’s creators (and from whose 
initials it gets its name), is really a pattern matching language [Ref. 6]. Awk was 
included among the languages needed because early in the design phase, it became 
apparent that considerable amounts of hand reworking of code segments could be 
avoided if certain recognizable patterns could be replaced automatically. Awk performs 
tasks like this using very few lines of code, making it an excellent addition to the arsenal 
of tools available. 

Make is not in itself a programming language, but is a tool that uses Unix shell 
commands to create powerful scripts for building executable code. Make was chosen 


because of this ability and the lack of any viable alternative. 
4. Editor 


The main text editor employed by the project team was vi, the standard visual line 
editor provided with the operating system at no cost. If employed, another text editor 


would have required installation on the project system, eating into project time and 
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administrative resources. Knowledge of vi’s command set was widespread within the 
team, even if the knowledge was shallow in some cases. In addition, vi’s command set 
is easily combined with Unix shell commands to create extremely powerful searching and 
replacing routines. This capability in itself was enough to guarantee inclusion in the 


project tool set. 
5. Miscellaneous Tools 


"Sed", the Unix stream editor, acts in much the same way as Awk, but possesses a 
simpler grammar. It was chosen in order to perform quick substitutions of text. As part 
of the Unix tool set, it also possesses the advantages of availability and cost. 

"Gen" is a code manipulation tool for creating loops within the Ada structure that 
would normally be considered illegal by the Ada Reference Manual. For example, 
consider the following code segment: 

For child_vertex: op_id in op id set_pkg.scan(vertices(g)) loop 

Normally this would not be allowed because there is no way for the compiler to 
ascertain the number of child_vertex that will be discovered using the scan function. Gen 
solves this problem by unrolling the loop, generating new Ada code in the process. The 
advantage of using this tool over hand coding the affected areas was significant 

"Gnatchop" is a text search tool for by the the GNAT compiler that scans a file for 
Ada package bodies and specifications. | Gnatchop then divides the file into 
corresponding Ada files. Names are assigned according to the convention that the file is 


named the same as the package contained with “.adb” appended for the package body and 
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“ads” for the specification. Gnatchop was recognized as necessary to automate 
processes. Gen, Aflex, and Ayacc were all developed for Ada83 and produce files that 
require splitting before compilation. Gnatchop not only helped us to produce Ada95 


packages, but allowed the use of sophisticated makefile scripts to automate the process. 
6. Version Control Tool 


The Revision Control System (RCS) was chosen as the archiving system for the 
project. RCS tracks changes in files from one version to the next and saves only the 
changes made. This delivers a substantial reduction in the amount of magnetic storage 
necessary to backup a multiple version library for a large project. In addition, RCS 
allows adding comments and descriptions to archived versions for easy recognition in the 
event retrieval is necessary. Beyond the standard need for a backup system for the code 
being produced, the use of RCS by the implementation team was necessary for project 
control. SunOS 4.1.3, while an excellent operating system, has no mechanisms to 
prevent simultaneous editing of a file by two or more programmers. 

The implementation team used a process of mirrored public and private 
directories for holding the latest working version and the current version being modified. 
The latest working version was to be exported to the public directories following a full 
archive with RCS. The private directories would hold the code being created and 
modified. This process possessed two important advantages. Testing could be conducted 


on a stable version of the system in parallel with the creation of the next version, and in 
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the event that changes to the code created compiler errors that could not be corrected 


immediately, a working version of the system was still available for demonstrations. 
a. Lexical Analyzers 


Aflex and Ayacc are the Ada versions of the popular C tools, lex and yacc. Aflex 
is a lexical analyzer/generator that accepts a file containing the definitions of lexical 
element to be recognized and returns a file with a “.a” suffix that contains a lexical 
scanner recognizing tokens corresponding to those elements. Ayacc accepts a set of 
tokens, such as those created by Aflex, and a set of rules provided by the designer. 
Together, the tokens and rules make a grammar. Ayacc generates Ada code for a parser 
to recognize that grammar. Both tools have been used for years and are well known. For 
a project such as creating parsers for a syntax directed editor, ignoring the benefits 


provided by these tools would have cost the team days of hand coding. 


8. Debuggers 


Two debuggers were employed for this project. Both debuggers were from GNAT 
and were designed for the C and Ada languages. The reasons for the choice of these 
debuggers were cost, compatibility, and availability. Availability was the key factor in 
the choice of the Ada debugger. It is one of the more disheartening aspects of working 
with Ada95 at the current time that an effective debugger, public domain or commercial, 


is extremely difficult to find for the SunOS environment. 
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B. APPROACH 


The CAPS team considered a number of factors when planning how to approach 
the implementation of the project. Automation was of prime importance to the group. 
Limited time in which to complete the effort and a shortage of available man-hours 
required that the maximum value of automated assistance be achieved. 

The experience of senior members of the team in creating sophisticated makefiles 
was primary importance to achieving maximum automaton. A quick look at some of the 
code within the PSDL Editor Makefile will serve to demonstrate this. Eight of the major 
packages are created using Gen, one of them being modified by Sed in the process. A 
short script is available to run a test case directly following a compilation. Two scripts 
were created to allow for easy export of private versions to public directories, and for 
entering a Current version into the RCS. 

The other process used to enhance the effectiveness of te group was the early 
division of the four main designers into teams of two. The newer members of the group 
were then able to learn the system from experienced personnel while providing a second 
set of eyes to spot syntax and logic errors. The investment in time up front undoubtedly 


paid off in the end in reduced errors, team spirit, and knowledge learned. 
C PROCESS 


The implementation process was performed at multiple sites over a period 
stretching from 9 June to 11 August 1997. While the majority of the effort was 


performed within the CAPS Laboratory and the Software Engineering Laboratory at 
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NPS, one team member was located in Lancaster, CA. Furthermore, at various times, 
other members were working from as far away as San Diego, CA and Brazil. This 
dispersion over time and distance complicated the problems of project management, 
especially in the initial phases and made the use of the RCS indispensable to success. 

The parser creation project was the first part of the implementation phase 
undertaken. It was an elementary undertaking that involved the analyzing of an existing 
Aflex grammar for PSDL and removing the components that were not applicable to the 
parser at hand. This part of the project was very automated, taking advantage of the 
properties Awk, Sed, Aflex, and Ayacc to achieve success. 

Testing of the parsers outside of the GE proved them to be accurate. Later testing 
within the GE found them to be less so. A default property within the GE caused streams 
not assigned a specific type to be listed as “?” in the graph description. The “?” had no 
meaning to the parsers and locating the error became a difficult process since the 
offending symbol was propagated to the graph description from within a window that 1s 
not normally parsed for errors. 

The second phase of implementation involved the creation of the PSDL editor 
interface to the GE. This was a project of considerable detail. Implementation was 
simply a time consuming task occasionally punctuated with challenging problems. The 
most serious of these problems involved the GNAT compiler, version 3.09, and the 
attempt to improve storage management through use of Ada.Unbounded_Strings, which 
was new in Ada95. Repeated system crashes ultimately forced concentration on 


discovering what appeared to be a particularly difficult fault in the code. Extensive 
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debugging and testing found no code error, but rather an instability in the 
Unbounded_ Strings package. This forced the abandonment of large segments of code 
created to make use of that functionality. 

Software engineering princples were enforced during the implementation process 
and a number of poor programming practices performed during the original 
implementation of CAPS were corrected. There was a strong reliance on large omnibus 
utility packages in the original code. This clear violation of the principles of object 
oriented programming and information hiding was removed in all cases but one. This 
was not a trivial project. The break up of the GE utitilities package alone created 13 new 
packages. The one package not broken down is the PSDL concrete types package. This 
massive file would have required far more man-hours than was available to reduce to its 
component pieces. It is therefore slated for replacement during the next evolution of the 


system. 


D. TESTING AND EVALUATION 


Testing occurred concurrently with integration. This was done to achieve 
maximum benefit from working in parallel. Frequently during a project, programmers 
lose productive hours waiting for another team to complete testing of a required section 
of code. Our concurrent approach avoided this loss. It also ensured that the implementers 
received accurate and timely feedback on the viability of code modules, essential in 
preventing the propagation of errors throughout the code structure. Testing was 


conducted in cycles. When a version was exported to the public directories, testing was 
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performed and the results returned to the programming team. While the testing was 
being performed on a version, the implementers were correcting problems identified 
during the previous test cycle. During the course of integrating the SDE into CAPS, 
twelve testing cycles were completed, uncovering 75 errors that were then corrected. The 
improved version of CAPS was not released until three error-free testing cycles had been 
completed -- testing cycles without an error that could result in an abnormal termination 
of the program. While continued testing with real users was necessary to thoroughly test 


the design, the system had to be robust enough to allow work to proceed. 
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V. RESULTS 


A. GRAPHICAL INTERFACE 
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Figure 14. Improved Graphical Interface. 


The primary objective of this project was the merging of the SDE and the 
Graphical Editor into one efficient module. That has been accomplished (Figure 14) and, 
without entering into detail appropriate to a user manual, a short display of the new 
features is in order. The user now can access the entire functionality for software 


prototype design through a single window. Although concentrating the functionality in 
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one window is a major benefit, the true value of the new GE becomes apparent when the 
prototype designer requires information. All the most frequently used information groups 
are placed at the designer's fingertips. This is the true benefit as it allows the designer to 
maintain focus on the task at hand. 

Buttons for operators, streams and terminators still exist and perform the same 
functions. The properties and select buttons have been removed. Simply clicking on that 


object using the left mouse button does selection of a graph component. Accessing the 
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Figure 15. Operator Property Box. 
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properties of an operator or stream is now performed by clicking on that object using the 
right mouse button. This brings up the operator property box (Figure 15) or the stream 
property box (Figure 16). The old editor allowed only the modification of the Maximum 
Execution Time and the period from the properties box. Now available for modification 
are requirements, guards, triggers, implementation languages, descriptions and keywords. 
The more extensive variety of fields reflects not an increase in complexity of the editor, 
but a decrease in the requirement for hand coded PSDL components. Previously, the 
designer would be required to enter these attributes directly into the PSDL code in the 
PSDL SDE, with a corresponding loss of focus on the flow of the design and a significant 
increase in the possibility of creating an error. The new GE does not increase the 
functionality of the CAPS system in this case, but it makes the functionality that always 
existed much more accessible. Attributes that were invisible to the novice before are now 
readily available. 


Added to the tool bar on the left of the improved GE are three new buttons;, 
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Figure 16. Stream Property Box. 
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PARENT SPEC, TIMERS and GRAPH DESC. 
The first allows access to the timers tool box (Figure 17). The timers tool box 
enables the designer to view and modify timers from within the GE at the touch of a 


button. The tool box itself contains a suite of options for operating on timers. Prior to 
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Figure 17. Timers Tool Box. 


this modification, timers were created and edited within the PSDL editor, with a 
corresponding loss in focus from the task at hand. 

The parent specification box (Figure 18) displays and allows editing of 
information pertaining to a parent composite operator. When working on a 
decomposition graph, it is frequently necessary to access the data of the parent operator 
in order to accurately set up the child graph. This used to entail extensive searching for 
the appropriate information within the PSDL code. Now it is available, and modifiable, 
directly from the interface. 

The graph description button on the new GE's toolbar provides data on the PSDL 


graph. The PSDL graph contains a wealth of information pertaining to the operation of 
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the prototype. Previously, the designer was required to continually check the PSDL 
editor in order to gather the necessary information about the PSDL graph Time is saved 


and attention to the project at hand is retained. 
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Figure 18. Parent Specification Box. 


Lastly, the GE provides further two functions to assist the designer. At the bottom 
of the editor window (Figure 14.) is an information window and a button labeled 
“CHECK”. The information window simply informs the designer in the event that the 
graph has changed since the last save. If it has, then the designer receives a gentle 
reminder to save the prototype. The “CHECK” button is an error checker. If an error is 
created that the parsers detect, the label will change to “ERROR MSGS”. This is to alert 
the users that an mistake has been made in the PSDL code. This can occur without the 
syntax parsers alerting the designer when editing data directly on the graph. The user can 
then bring up the list of errors and correct them directly from the graph. If the button is 


depressed while in “CHECK” mode, the SDE will scan the PSDL program for errors and 
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return the result. In effect, the check button is a miniature compiler for PSDL that 


generates a report of correctness. 


B. TECHNOLOGY TRANSFER 


The Software Engineering Group at the Naval Postgraduate School is a full 
participant in the DOD Technology Transfer Program. CAPS version 1.1 has been in use 
by various DOD agencies since its creation in 1988. In accordance with this, on 12 
August 1997, the CAPS version 1.2 with the enhanced syntax directed graphical editor 
was presented to members of the Army Research Office, the Army Research Lab and the 
Naval Research and Development activity for further testing and improvement. When 
follow up testing is completed, the new version will be disseminated to the various 
agencies within the DOD that support the rapid prototyping paradigm and use or support 
CAPS. 

Transfer of CAPS technology within the DOD has resulted in the successful 
application of rapid prototyping and the CAPS environment to numerous projects. 
Currently the Navy’s SmartShip and the Distributed Computing Networks programs are 


evaluating the use of CAPS in support of DOD research. 
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VI. SUMMARY AND RECOMMENDATIONS 


A, SUMMARY 


The integration of an improved SDE into the CAPS environment will decrease the 
overall time necessary to produce a software prototype and can substantially reduce the 
~ number of errors per thousand line of code. With proper use, a similar decrease can be 
achieved in both the time and development costs associated with software development 
through the use of CAPS in the early stages of a project. Four of the five original 


objectives were completed successfuly. 


1. Creation of parsers that correctly interpret the seven main elements 


of PSDL. 


The first objective completed, the creation of parsers for PSDL, was the simplest 
portion of the project. Extensive code reuse contributed to the accomplishment of this 
goal. Always a prime tenet of sound software engineering, the reuse of code in this case 
significantly reduced the time necessary to create the parsers, by reusing over 3000 lines 
of validated and tested code. The parsers themselves work perfectly and the error- 
locating mechanism properly presents the position and size of any faulty code the parsers 


discover. 
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De Use existing UNIX environment tools and software engineering 


procedures to automate coding of large segments of the project. 


The use of Awk, Aflex, Ayacc, and gen significantly reduced the amount of hand 
coding necessary to create the parsers needed. However, it was the creative use of the 


Unix make utility that allowed large portions of code creation to be automated. 


3. Integrate the new parsers into a previously designed graphical editor. 


Integration of the parsers into the Graphical Editor was completed and required 


relatively little effort. 


4. Integrate the combined graphical editor/parser package into the main 


flow of the CAPS environment. 


This goal required the most extensive work with the system. The multiple levels 
at which data was transferred to and from the graphical editor as well as the language 
conversion issues tended to make straightforward solutions impractical. Success was due 


to hard work and rigorous testing. 


= Document flow contro! and design of data structures into a 
maintenance handbook to improve the maintenance of the enhanced 


version. 


Although an admirable goal and one that would have greatly enhanced the ability 


of future prototype designers to understand the nuances of the code for the SDE, time 
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constraints forced the postponement of this objective. The creation of a maintenance 


handbook will be left for future work. 


B. LESSONS LEARNED 


Planning ahead is a key to success in software development and this project was 
not an exception. Time not spent properly specifying requirements and outlining the 
design of the new system will be spent correcting errors in the testing and evaluation 
phase of development. 

Proper use of Unix Makefiles to automate portions of a program was an enormous 
time saver and resulted in more accurate code. Effective use of makefiles can only be 
accomplished with thorough knowledge of the tools available and how to link them 
together, in effect creating an assembly line for the creation of code, much like that used 
in manufacturing. The power of an integrated tool set was demonstrated during this 
project. Even though only linked by shell commands and the make tool the capabilities 


were immense. This concept truly requires more emphasis in computer science curricula. 


RECOMMENDATIONS FOR FUTURE RESEARCH 


CAPS is a versatile and powerful designing environment that can be used by the 
DOD now. However, the system could benefit from research in a number of areas. The 
DOD is moving toward Microsoft WindowsNT™ as the standard for information 


systems. It is essential that a version of CAPS that operates under WindowsNT 1s 
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produced soon. The graphical editor in CAPS would benefit from a new type of 
component, a composite stream, that would decrease the complexity of large designs. 
The graphical editor would also benefit from an auto-redraw function to assist the user in 
removing clutter. Implementing a CAPS prototype in CAPS would greatly improve the 
ability of the system to grow and evolve over time. Lastly, the PSDL parsers function 
admirably on PSDL components, but there is no mechanism in place to enforce strong 
typing within streams. Examining each of these areas in detail: 

e Windows NT™ was first introduced to the network computer community in 
1993. In 1995, NT was the operating system of choice on 36% of the network computers 
sold. By 1997 that percentage had increased to almost half [Ref 12]. Also in 1997, the 
DOD, and the U.S. Navy in particular through the Information Technology Initiative for 
the 21* Century (IT-21), opted for the WindowsNT operating system as the standard 
toward which the military information system will march. The time when we must count 
on a Unix compatible system being available to supporting agencies for the installation of 
CAPS is coming to an end. Therefore, it is critical that a IntelPC/Windows compatible 
version of CAPS be developed. Although this is a very large task and ‘planning for the 
eventuality cannot begin too soon, the increasing usage of Microsoft Foundation Classes 
and their Ada95 equivalents will enable significant use of preexisting software 
components for the creation of a new graphical interface. 

e As a prototype increases in complexity, the number of data streams linking 
operators with the graph also increases. While operators can be aggregated into a 


composite operator and decomposed in a separate graph, there is no such option to use 
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with streams. Indeed, composite operators often require a large number of data streams 
to feed the sub-functions imbedded in the lower levels. The proliferation of streams 
makes the graph unwieldy to create and manipulate, and in no way enhances the 
designer's overall knowledge of the design. The creation of a composite stream seems to 
be the obvious solution. Incorporating all streams between two operators, a composite 
stream would be subject to decomposition like an operator and would contain it’s own 
graph containing the two terminating operators and all the streams linking them. This 
addition to CAPS would vastly enhance the functionality of the system especially at the 
higher levels of abstraction of the prototype design. 

e In the absence of a composite stream, redrawing a prototype containing 
numerous streams is an arduous and time-consuming task. Users of CAPS are sometimes 
forced to create designs in a separate drawing tool in order to organize the components 
prior to drawing them within the graphical editor simply to avoid the time required to 
redraw streams. An automatic redraw tool that can create a neat and understandable 
output with a minimum of crossed streams would be of inestimable value to the system. 

e CAPS was designed and is still evolving using the outmoded Waterfall 
methodology. There is also an unfortunate shortage of design information on the CAPS 
system. The combination of these two factors makes understanding the workings of the 
environment extraordinarily difficult for a designer viewing the code for the first time. 
Because of this state of affairs, evolutions to CAPS are necessarily major events requiring 
a substantial commitment of time and money. The creation of a CAPS prototype by 


reverse engineering the CAPS system would greatly relieve this problem. Although a 
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substantial project, the ability of the CAPS system to decompose the problem at 
successively finer levels of detail would allow the project to be spread over several 
theses. Alternately, it could be done as an ongoing class project in an advanced 
software-engineering course. This would have the added advantage of teaching new 
students the utility of the tool while improving it. Upon completion, CAPS would benefit 
from all the evolutionary advantages that accrue to projects using rapid prototyping. 

e The parsers installed in the Graphical Editor perform quite well in detecting 
errors with PSDL components. However, they do not check for type conformity within 
Operators or streams. For example, if the designer decides that a stream type will be an 
integer, the system still allows the designer to enter 1.2, a float, as the initial state 
variable. This will undoubtedly result in problems when create problems during 
compilation of generated Ada code. Enforcing strong typing for data types within the 
PSDL structure should be a minor fix and will have a significant impact upon the 
robustness of the system. 

e The parsers installed in the Graphical Editor check the designer's input and, if 
an error is present, show the point where the error occurs. This is a functional and 
adequate system. However, a much more robust method of ensuring that the designer 
provides the necessary information in the correct format is by using buttons to display 
templates for the various PSDL constructs. The designer can be prompted to choose 
from different variations of a component. This would result in a minimal amount of hand 


entered data, with a corresponding drop in the number of hand entered errors. 
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APPENDIX A: SELECTED SOURCE CODE (PSDL TYPE) 


--Makefile for ESULe LY PE 


INCLUDE FLAGS = \ 
~I./GENERIC TYPES \ 
~I./INSTANTIATIONS 


SEN SADA = \ 
psdl_io.adb \ 
old psdl_io.adb \ 
psdl program _pkg.adb \ 
pre expander pkg.adb \ 
psdl_ component pkg.adb \ 
Peal) concrete type pkg.adb \ 
psdl graph _pkg.adb \ 
parser.adb 


SPARSERS = \ 
Srceperon guard 16.adb \ 
EXGeptlonelo.adp \ 
expression io.adb \ 
op id io.adb \ 
output guard io.adb \ 
parser.adb \ 
timer op guard io.adb \ 
type_name_io.adb 


BAP YACC = \ 
expression io goto.ads \ 
SspnesslOn LO Shiit reduce.ads \ 
expression io tokens.ads 


TYPE NAME YACC = \ 
type name _ io goto.ads \ 
Eype mame TO Sshitt reduce.ads \ 
type name_io tokens.ads 


OP ID YACC = \ 
op id io goto.ads \ 
Cpeldgioushiit reduce.ads \ 
op id io tokens.ads 


OUTPUT GUARD YACC = \ 
output guard io goto.ads \ 
SUerUeGuaraete Shift reduce.ads \ 
output guard io tokens.ads 
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EXCEPTION GUARD YACC = \ 
exception guard _io goto.ads \ 
exception guardiio lsh rt reancemadoms: 
exception guard io tokens.ads 


EXCEPTION YACC = \ 
exception io goto.ads \ 
exception io shift _reduce.ads \ 
exceptiom Oo ECKeno. acdc 


TIMER OP GUARD _YACC = \ 
timer op guard io goto.ads \ 
timer op guard io shi [imeeauce ada a. 
timer op guard _io_ tokens.ads 


AYACC = \ 
parser goto.ads \ 
parser shift reduce.ads \ 
parser tokens.ads \ 
parser.g 


AFLEX = \ 
Parser tex dfa.ads 
parser lex dfa.adb \ 
parser lex io.ads \ 
parser lex _io.adb \ 
parser lex.ads \ 
parser lex.adb 


all: $(GEN_ADA) $(SPARSERS) $ (AFLEX) 
(cd I1* > make gen) 
(cd GE* ; make gen) 
gnatmake -g -c $(INCLUDE FLAGS) psdl_io.adb 


gen: $(GEN_ ADA) 

(cd I* ; make gen) 

(cd GE* ; make gen) 
parsers: $(SPARSERS) $ (AFLEX) 


psdl_io.adb: psdl io.g 
gen < psdl_io.g > psdl io.adb 


pre expander pkg.adb: pre expander pkg.g 
gen < pre expander pkg.g > pre expander pkg.adb 


old psdi i0.adb: oldvpsditicong 
gen < old psdl 10-9 [ue'd psdieroncas 


psdl_ program _pkg.adb: psdl program pkg.g 
gen < psdl_ program_pkg.g > psdl program pkg.adb 
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psdl_component_pkg.adb: psdl_ component _pkg.g 
gen < psdl_component_pkg.g > psdl_component pkg.adb 


psdl_concrete_type_pkg.adb: psdl_ concrete _type pkg.g 
gen < psdl_concrete type pkg.g > psdl_concrete type pkg.adb 


psdl_graph_pkg.adb: psdl graph pkg.g 
gen < psdl_graph_pkg.g > psdl_ graph pkg.adb 


$(AFLEX): parser lex.1 
ale we eouparse mere x. 1 
gnatchop -w yylex.adb 
/bin/rm yylex.* 


S(AYACC): parser.y 
ayacc parser.y debug =\> off verbose =\> on 
my Yyparse.adb parser.g 
/bin/rm yyparse.* 


° {EXP YACC) expression io.g: expression io.y 
ayacc expression io.y debug =\> off verbose =\> on 
mv yyparse.adb expression io.g 
/bin/rm yyparse.* 


$ (TYPE NAME YACC) type name_io.g: type name io.y 
ayacc type name _io.y debug =\> off verbose =\> on 
mv yyparse.adb type name 10.g 
/bin/rm yyparse.* 


OE elD YACE) op 1d 10-g: op_id io.y 
ayacc op id io.y debug =\> off verbose =\> on 
mv yyparse.adb op id io.g 
/bin/rm yyparse.* 


$ (OUTPUT GUARD YACC) output guard _io.g: output guard_io.y 
ayacc output_guard io.y debug =\> off verbose =\> on 
mv yyparse.adb output guard io.g 
/bin/rm yyparse.* 


$ (EXCEPTION GUARD _YACC) exception_guard_io.g: exception_guard_io.y 
ayacc exception guard io.y debug =\> off verbose =\> on 
mv yyparse.adb exception guard io.g 
/bin/rm yyparse.* 


> (BACEPTION YACC) exception io.g: exception io.y 
ayacc exception io.y debug =\> off verbose =\> on 
mv yyparse.adb exception io.g 
/bin/rm yyparse.* 


$ (TIMER _OP GUARD YACC) timer op guard _io.g: timer_op_guard_io.y 
ayacc timer op guard _io.y debug =\> off verbose =\> on 
mv yyparse.adb timer op guard _io.g 
/bin/rm yyparse.* 
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expression_io.adb: expression_io.g $(AYACC) $(AFLEX) 
gen < expression_io.g > expression io.a 
gnatchop -w expression i0.a 
@sied -f£f expression 16.sed ‘expressionmic.ddbe sempre 
@mv tmpfile expression io.adb 
/bin/rm expression io.a 


type name_io.adb: type name_io.g $(AYACC) $ (AFLEX) 
gen < type name_io.g > type name _io.a 
gnatchop -w type name _io.a 
@sed -f£f type name _1o.sed type name _io.adb > tmpfile 
@mv tmpfile type name io.adb 
/bin/rm type name _ io.a 


op id io.adb: op_id_io.g $(AYACC) $(AFLEX) 
gen < op id 1079 2 epeilditesd 
gnatchop -w op id io.a 
@sed -£ op_id io.sed op id io.adb > tmpfile 
@mv tmpfile op _id io.adb 
/pan/ rep tere. 


output guard io.adb: output _guard_io.g $(AYACC) $(AFLEX) 
gen < output_guard_io.g > output guard io.a 
gnatchop -w output guard _io.a 
@sed -f output guard io.sed output _guard_io.adb > tmpfile 
@mv tmpfile output guard io.adb 
/bin/rm output_guard io.a 


exception guard io.adb: exception guard io.g $S(AYACC) $ (AFLEX) 
gen < exception guard 10.19 = excepreionsguaran lena 
gnatchop -w exception guard io.a 
@sed -f exception guard io.sed exception guard_io.adb > tmpfile 
@mv tmpfile exception guard io.adb 
/bin/rm exception guard io.a 


exception io.adb: exception io.g $(AYACC) $ (AFLEX) 
gen < exception eng >= €xcepLicueond 
gnatchop -w exception io.a 
@sed -f£ exception _io.sed exception io.adb > tmpfile 
@mv tmpfile exception io.adb 
/bin/rm exception io.a 


timer op guard _io.adb: timer op guard io.g $(AYACC) $(AFLEX) 
gen < timer op guard 10.9 2 sGimer (op guard lio.a 
gnatchop -w timer op guard io.a 
@sed -f timer op guard io.sed timer op guard io.adb > tmpfile 
@mv tmpfile timer op guard io.adb 
/bin/rm timer op guard io.a 


parser.adb: parser.g $(AYACC) S$ (AFLEX) 
gen < parser.g > parser.a 
gnatchop -w parser.a 
/bin/rm parser.a 
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# currently not used, old my pkg 
# add to GEN ADA if used 
psdl_ ops pkg.adb: 
gen < psdl ops pkg.g > psdl ops pkg.adb 


Stoeegen parsers 
ci_ files -tRCS/desc *.[Cgly] *.ad[sb] Makefile 
sleep l 
touch *.adb 
EOuUGhO salem oO [tG)*/*.ali [IG]*/*.o 
{cd GENERIC TYPES ; make ci) 
(cd INSTANTIATIONS ; make ci) 


test: all 
gnatmake -g -IINSTANTIATIONS -IGENERIC TYPES test.adb 
pects) test.out 


test2: all 
gnatmake -g ~LINSTANTIATIONS -IGENERIC TYPES test2.adb 
Mtects > test? .ouc 


Peemexpander: all 
gnatmake -g ~IINSTANTIATIONS -IGENERIC TYPES pre expander.adb 
-/pre expander < autopilot.psdl > pre expander.out 


test3: all $(SPARSERS) 
gnatmake -g -IINSTANTIATIONS = MENA MESSI di ae dys, test3.adb 
W/teses > Eests.out 


Bese CeXt: ail 


gnatmake -g -IINSTANTIATIONS -IGENERIC TYPES test_text.adb 
./test_ text > test_text.out 
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APPENDIX B: SELECTED SOURCE CODE (PARSERS) 


Makefile for PSDL Parsers: 
Expression 
Initial Expression 
Output Guard 
Timer op Guard 
Exception Guard 
Exception List 
lv pe. Spee 
Operator Spec 
Opid 


CAPS Lab. 
Jun/1997 


+2. HR HEHEHE HE HE HE HE CHE CHE OC HE ES SE 


SOURCES = parse expression.y parse init expression.y 

parse output guard.y parse timer op guard.y parse exception guard.y 
PresemcrCepe Onell st.y Parse Cype spec.y parse oper spec.y parse opid.y 
parse lex.l parser pkg.adb parser pkg.ads 


OBJ = yyparse.ads parse tokens.ads 


S@Ede—= testo test exp.o Cest_init exp.o test output guard.o 
fa oemelnctsopaguakd.o test exception guard.o test exception list.o 
PeomeyopCnoPec.o Lest Oper spec.o test opid.o 


OBJ]l = parse expression goto.ads parse expression shift _reduce.ads 
OBJ2 = parse init expression goto.ads 

Poece inle expression shift reduce.ads 

OBJ3 = parse output_guard goto.ads parse output _guard_shift reduce.ads 
OBJ4 = parse timer op guard goto.ads 

posse eclmer op Guard shift reduce.ads 

©BJo = parse exception — guard _goto.ads 

parse Bo cepciens Guatadesni tC reduce. ads 

OBJ6 = parse exception list goto. ads 

pase mencepcCi1Onelistlonmiat treduce.ads 


OBJ7 = potsemuypeuspee JGoOlo.ads Parse type spec shift reduce.ads 
Ceo ePalse Oper espee GoCo.ads parse oper spec shift _ reduce.ads 
©BJY = parse opid goto.ads parse opid shift reduce. ads 


SCRIPTS= Makefile parse.awk parse io.awk 
PARSER= yyparse.adb yylex.adb 
parsers: parser pkg.ali 


test: parser pkg.ali ${COBJ) 
GriaeDinae one patse ep kg. dla 
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gnatlink -o test parser pkg.ali ${COBJ} 


parser pkg.ali: parser pkg.adb ${PARSER} ${SCRIPTS} S{SOURCES} \ 
${OBJ1} ${OBJ2} ${OBJ3} ${OBJ4} ${OBJ5} ${OBJ6} ${0OBJ7} 

S${OBJ8} ${OBJ9} S${OBJ} 
gnatmake parser pkg.adb 


$(OBJ1): parse expression. y 
ayacc parse expression.y debug =\> off verbose =\> on 
gnatchop -w yyparse.adb 


9 (OBJ2Z): parse Init expression, vy 
ayacc parse init expression.y debug -\> off Vverboses— aon 
gnatchop -w yyparse.adb 


$(OBJ3): parse output guard.y 
ayacc parse output _guard.y debug =\> off verbose =\> on 
gnatchop -w yyparse.adb 


$(OBJ4): parse timer op guard.y 
ayacc parse timer op guard.y debug =\> off verbose =\> on 
gnatchop -w yyparse.adb 


5S (OBJ>) parse exception guard.y 
ayacc parse exception guard.y debug =\> off verbose =\> on 
gnatchop -w yyparse.adb 


» (OBJ6): parse exception Tist.y 
ayace parse exception list-y debugqu—.- Oth Vetboces = aon 
gnatchop -w yyparse.adb 


9(OBJ7):; parse type spec.y 
ayace parse type spec.y debug =\] off verbose. —\- sen 
gnatchop -w yyparse.adb 


9 {OBJ8): parse oper spec.y 
ayacc parse oper spec.y debug =\> off verbose =\> on 
gnatchop -w yyparse.adb 


$(OBJ9): parse opid.y 
ayacc parse opid.y debug =\> off verbose =\> on 
gnatchop -w yyparse.adb 


@sed -f expression.sed parser pkg-parse expression-.adb =] tnpeee. 

G@mvy tmpfile parser pkgsparse expressten.ace 

@sed -£ init _expression.sed parser pkg-parse init expression zaae 
> tmpfile 

@mv tmpfile parser pkg-parse init expression. adb 

@sed -f output_guard.sed parser pkg-parse output_guard.adb > 
tmpfile 7 

@mv tmpfile parser pkg-parse output _guard.adb 

@sed -f timer op guard.sed parser pkg-parse timer op guard.adb > 
tmpfile 

@mv tmpfile parser pkg-parse timer op guard.adb 


Ve 


PSeameeeeMCepclon gquard.sed parser pkg-parse exception guard.adb 


> tmpfile 


@mv tmpfile parser pkg-parse exception guard.adb 
Gsed)>f exception list.sed parser pkg-parse exception list.adb > 


tmpfile 


Gmvy tmprile parser pkg-parse exception list.adb 

esed >t type spec.sed parser pkg-parse type spec.adb > tmpfile 
@mv tmpfile parser pkg-parse type spec.adb 

Cede scPerm Seen sca parser pkg-parse oper spec.adb > tmpfile 
mv Emprtile parser pkg-parse oper spec.adb 

@sed -f opid.sed parser pkg-parse opid.adb > tmpfile 

@mv tmpfile parser pkg-parse opid.adb 

@yes | rm tmpfile 


. LGNORE: 


eile 


yylex. 


ci files -tRCS/desc ${SOURCES} ${SCRIPTS} ${OBJ} 


ads yylex.adb: parse lex.1]l parse.awk parse io.awk 
Selon separse lex. 1 

nawk -f parse.awk yylex.adb > yylex.patched 

nawk -f parse io.awk parse lex _io.adb > temp 

mv temp parse lex _10.adb 

gnatchop -w yylex.patched 
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—a— KKK KK KK KKK KKK KK KkKkeKkeKa Kk 


-- Alex 


file for Parser 


—m— kK KKK kkk KkKk kkk kkk kkke kk 


— ome ee ee ee ee ce ee ee ee ee ce ee ee ce ce ce ee ee cm ec ce ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee es ee ee ee ee es ee ee ee ee es ee ee ee ee ee 


-- This file is the Aflex input file for PSDL grammar, 
-- and defines the lexical tokens for the ayacc psdl parser. 


— —- oe eee ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee es ee ee ee ee ee ee es ee ee ee ee ee ee ee ee 


-- Definitions of lexical classes 


Digit 
ine 
Letter 
Alpha 


Uso] 
{DiGi © jet 

las Zea Za 
((Letter) | Vbwetei 


Blank [ \t\n] 


-- Text is anything but 
antes) 
=— Strilit is anything Bue 


Text 


SErii& 


and '}' 


ue 


and OR 


se 
[ONIN Sle 


Quote ["] 


SS 


axioms | AXIOMS 
by{Blank}+all|BY{Blank}+ALL 
by{Blank}+some|BY{Blank}+SOME 
control | CONTROL 

constraints |CONSTRAINTS 
data| DATA 

stream|STREAM 

description| DESCRIPTION 
edge | EDGE 

end| END 
exceptions | EXCEPTIONS 
exception | EXCEPTION 
finish|FINISH 

within|WITHIN 
generic|GENERIC 

graph | GRAPH 

hours | HOURS 


12 |e 


implementation | IMPLEMENTATION 
}Jly| INITIALLY 


INPUT 


ks | KEYWORDS 
m|MAXIMUM 
eon | EXECUTION 


tME 


ae eee SS Se ee em ee 


rse|RESPONSE { 
microsec|MICROSEC|microseconds |MICROSECONDS { return (MICROSEC TOKEN) ; } 
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a PN 


return 
return 
Bete Uien 
return 
EFeeurn 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 
return 


followed by '"" or aya@ 
(AXIOMS TOKEN); } 
(BY ALL TOKEN) ; } 
(BY SOME TOKEN) ; } 


(CONTROL TOKEN); } 
(CONSTRAINTS TOKEN); } 
(DATA_TOKEN); } 
(STREAM TOKEN); } 
(DESCRIPTION TOKEN); } 
(EDGE TOKEN); } 

(END TOKEN); } 
(EXCEPTIONS TOKEN); } 
(EXCEPTION TOKEN); } 
(FINISH TOKEN); } 
(WITHIN TOKEN); } 
(GENERIC TOKEN); } 
(GRAPH TOKEN); } 
(HOURS TOKEN); } 

(IF TOKEN); } 
(IMPLEMENTATION TOKEN) ; 
(INITIALLY TOKEN); } 
(INPUT TOKEN); } 
(KEYWORDS TOKEN); } 
(MAXIMUM TOKEN); } 
(EXECUTION TOKEN); } 
(TIME TOKEN); } 
(RESPONSE TOKEN); } 


minimum |MINIMUM 


{ return (MINIMUM TOKEN) ; 


calling{Blank}+period|CALLING{ Blank}+PERIOD 


{ return (CALL PERIOD TOKEN) 


min|MIN|minutes|MINUTES { return (MIN TOKEN); } 


ms |MS|milliseconds |MILLISECONDS 


operator|OPERATOR 
output |OUTPUT 
period| PERIOD 
property| PROPERTY 


required{Blank}+by] REQUIRED{Blank}+ByY 
reset{Blank}+timer|RESET{Blank}+TIMER 


ie Eecurn (MS_ TOKEN) ; } 

{ return (OPERATOR TOKEN) 
{ return (OUTPUT TOKEN) ; 
{ return (PERIOD TOKEN) ; 
(erecurne (| PROPERTY TOKEN) 
{ return (REQ BY TOKEN) ; 
fereturn (RESET TOKEN); } 


sec|SEC|seconds|SECONDS jeuecurm (SEC TOKEN) 7 } 


Secei gication|SPECIFICATION 


{ Leturn (SPECIFICATION TOKEN} 


start{Blank}+timer|START{Blank}+TIMER { return (START TOKEN); } 


states|STATES 


{ return (STATES TOKEN) ; 


stop {Blank} +timer|STOP{Blank}+TIMER { return (STOP TOKEN) ; } 


timer|TIMER 
triggered| TRIGGERED 
type | TYPE 
vertex | VERTEX 


tery fe 


tee 


ee 


i t ve | mat | st geee | oe 6 || tA tt | ere” ef 


e ( ve 
1% ) #? 
tt [ ft 


| ve 


Hoyt 
"and"| "AND" 
bor |) OR. 
OE. | KOR” 
Myon 

Neon 

n/a) tom 


{ Eeturn (TIMER TOKEN) ; } 
{ return (TRIGGERED TOKEN) 
Perec usin (LT YPR TOKEN) 73} 
{ return (VERTEX TOKEN) ; 


return ( 
return ( 
return ( 
return ( | TOKEN) ; 
return ( 

return ( 

return ( 

return ( 

PeturEn (ioe 
return... 
returned: 2." 
return | °)> 
return (ARROW); } 


Uo 2LN Ls 
ee) 
ee 
ILLE 
cs 
Pee te 
gal ee 
1'); 
) 
yas 
) 


—— ee ee ee ete ee SS 
™= ™ ™ = 
Bath eee ee ae 


set_token_value((token_category => psdl_id cat, 
psadleia value => convert ("AND") 
return (AND TOKEN); } 


} 
a) 
; } 
} 
} 
; } 
} 
p7} 
} 


7} 


} 


} 


0} 


set token value((token_category => psdl_id_cat, 


podl ad value => convert ("OR") 
return (CR TOKEN); } 


de 


set token value((token_category => psdl_id_cat, 


peal idivalue =~ convert ("XOR") 
return (XOR_ TOKEN); } 
SeileEoken _value ((token_ category => psdl id cat, 
psdl_ id value => convert (">=") ) 
return (GREATER THAN _OR_EQUAL); } 
set token value((token_category => psdl_id_cat 
— 7 pediaaid “value => convert ("<=") 
return (LESS THAN OR _ EQUAL) ; } 
set token value ((token_ category => psdl idscat, 
— a psaleid value —> convert ("/=") 
return (INEQUALITY); } 


)); 
); 


)); 


)); 


set token_value((token_category => Podieicdecat, 


fe 


psdl id value => convert(™— jaja, 


return ("= ™ae} 
rey { set token value ((tokengeateqom ys —— psdl_id cat, 
psdl id value => (convert( + jee 
Peewrem | tat) 
wom { set _ token value( (token category —> psamaiageae, 
psdl_ id value => convert 2.) aoen 
return, ()= an) 
ae { set token value((token category —> psdl idea 
psdl id value => Convert("*))aee 
return ge =) 
uy { set token value({ (token category => psdl idjcar 
psdl_id value => convert("/") )); 
return ('/*)cae 
Lo { set token value((token category => psdl idicace 
pod lads value => convert ("AND") )); 
return ('6') 4] 
{ set_token value((token category => psdl id ’cauw 
psd devalue. —— convert (">") )); 
return (is): ) 
a { set token value((token category => psdl idveamw 
psdl id value = Convert() <a 
return ('<")) 
“rod | “MOD { set_token value( (token category => psdl 1d cam 
psdl_id value => convert ("MOD") ge 
return (MOD TOKEN); } 
"rem" | "REM" { set token value{ (token category => psdijidicac 
psdl_ id value => convert( REM) age 
return (REM TOKEN); } 
Wee { set token _ value ( (token category => psd id cate 
psallitalvalues—— convert ("**") )); 
return (EXP TOKEN); } 
"abs"| "ABS" { set token _value ( (token category => psdll 1d cag, 
psd idivaluc convert ("ABS") )); 
return (ABS TOKEN); } 
‘not aie Node { set_token value((token_ category => psdl_ id cat, 
psdl_ id value => convert ("NOT") Joe 
return (NOT TOKEN); } 
true | TRUE { set_token_value((token category => psdluvdicae 
psdl_ id value => convert ("TRUE") )); 
return (TRUE); } 
false| FALSE { set token value((token category => psdljidveag 
psdl id value => convert( FALSE ) Wie 


return (FALSE); } 


{Letter} {Alpha} * { set token: value((tokenvcategon, = psdl_ id cacy 
psdl idjvalue => convert (yytext) ae 
return (IDENTIFIER); } 


{Quote} (StrLit}*(Quote} {( set token value((tokéen category => Cextecams 


text value => Convert (yyCext) wae 
return (STRING LITERAL); } 
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Wen | { set_token_value((token_category => integer cat, 


integer value => Sering COmiieegen (yy Cex time, 
return (INTEGER LITERAL); } 


ont) 2 int} { set_token_value((token_ category => text_cat, 


text_value => convert(yytext) )); 
return (REAL LITERAL); } 


ae (ext) *")" { set_token_value((token category => text cat, 


text value => convert(yytext) )); 
return (TEXT TOKEN); } 


{\n] { tnerement, line number; } 


ieee | { null; } -- ignore spaces and tabs 


with parser tokens; MSemvarser COKels, 

Wacn psdl concrete type pkg; use psdl concrete type pkg; 
with psdl_id pkg; use psdl id pkg; 

Math Gext 10; 


package parser lex is 


-- Global variables used by the lexical analyser 
fine number: positive := 1; 
MuMeeEEOES; Natural := 0; 


-- Initialization procedure to allow multiple calls from the parser 
procedure initialize yylex; 


-~- Line numbers to be used for error messages during parsing 
fuMectTom current line return positive; 


-- Lexical analyzer function generated by aflex 
function yylex return token; 


-- Procedure that increments line numbers 
peacedubLesinecrement line number; 


end parser lex; 


Wach text 10; use GexteLo, 


package body parser lex is 


-- Externally visible subprograms 
Peoeccauceelineralize yylex is 


begin 
iene nuMbe r ee -- reset Pane mnumoet or 
eee a ete: -~ tell yylex to reinitialize itself 


Wont cide Zemyy Lex: 


MMC=LOnecibEene “ine return positive is 


vy 


# # 


begin 
return {line snumbee ss, 
end Current “lance, 


procedure inerementelimesnumber ie 
begin 2 
line number -— 1inesnumve reek, 
end increment linemen, 


-- Functions and subprograms used in actions associated with tokens 
package nat_1o0 is new integer siotmacural),; 


function string to integer (digit String: String) =rettrn natura eee 
digit, value : naturale: — 70; 
begin 
for i in i «.. digteystrang: lengenmloos 
case digitesering (a) eis 
when '0O' => digit := 
when '1' => digit := 
when '2' => digit := 
when '3' => digit 
when '4' => digit 
when '5' => digit 
when ‘6! => digit 
when ‘7! => digit := 
when '8' => digit 
when '9' => digit := 
when others => return value; 
end case; 
value := (10 * value) + digit; 
end loop; 
return value; 
end SEring vor ticeder, 


il | | | | 
weaern~]TIn OB WN FEF OC 
™e *®*o Bo Bo Bo We Bo Ao Wo 


0 


procedure set token walte(value- sy vcevoe) mic 

-- Set the value of a token, like "$$ := value" in ayacc. 
begin 

yylval := value; 
end set token value, 


-- The generated yylex function goes here. 


end parser lex; 
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ae KKK KKK KK KKK Kk kh kkk kkk kkk 


-~- Ayacc file for Parser 
—a KKK Kak kK KK kkk kkk kk kkk k 


-- $Header: /work/sde/PSDL TYPE.NEW/RCS/parser.y, 
Py 1.19 1997/08/12 21:35:47 sde Exp sde $ 


—_emeamwamece= owen ame om owen Owen es ews a= ew ee ee ee ee ee ee es ee ee ee ee ee ee ee ee ee ee es es ce ce ce ce ce ee ee ee ee ee ee ee ee ee 


cc ee cc ee cr crm cr ec ec cr cr cr we we ce ww we cr ww we we we cr ww wc wc ee ws we we 


$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 
$token 


token declarations section 


19! ryt 
ARROW 
TRUE FALSE 

AXIOMS TOKEN 

BY ALL TOKEN REQ BY TOKEN BY SOME TOKEN 
CALL PERIOD TOKEN CONTROL TOKEN 
CONSTRAINTS TOKEN 

DATA TOKEN DESCRIPTION TOKEN 

EDGE TOKEN END TOKEN EXCEPTIONS TOKEN 
EXCEPTION TOKEN EXECUTION TOKEN > 
FINISH TOKEN 

GENERIC TOKEN GRAPH TOKEN 

HOURS_ TOKEN 

IF TOKEN IMPLEMENTATION TOKEN 
INITIALLY TOKEN INPUT TOKEN 

KEYWORDS TOKEN 

MAXIMUM TOKEN MINIMUM TOKEN 
MICROSEC_TOKEN 

MIN TOKEN MS_ TOKEN MOD TOKEN 

NOT TOKEN 

OPERATOR TOKEN OR TOKEN OUTPUT TOKEN 
PERIOD TOKEN PROPERTY TOKEN 

RESET TOKEN RESPONSE TOKEN 

SEC TOKEN SPECIFICATION TOKEN 

START TOKEN STATES TOKEN STOP TOKEN 
STREAM TOKEN 

TIME TOKEN 

TIMER TOKEN TRIGGERED TOKEN TYPE TOKEN 
VERTEX_TOKEN 

WITHIN TOKEN 

IDENTIFIER 

INTEGER LITERAL REAL LITERAL 

STRING LITERAL 

TEXT TOKEN 


'}' ILLEGAL TOKEN ' (' 


J ee ey ‘aaas 


-- operator precedences 
-- left means group and evaluate from the left 
left AND TOKEN OR_TOKEN XOR_TOKEN LOGICAL OPERATOR 


left 


rr! 


'>' '=! GREATER _ THAN _OR_EQUAL LESS _THAN OR_EQUAL INEQUALITY 


RELATIONAL OPERATOR 


de 


$left '+' '-' '&' BINARY ADDING OPERATOR 

$left UNARY ADDING OPERATOR 

$left '*' '/' MOD TOKEN REM TOKEN MULTIPLYING OPERATOR 

$left EXP TOKEN ABS TOKEN NOT TOKEN HIGHEST PRECEDENCE OPERATOR 


$start start symbol = 
-- this is an artificial start symbol, for initialization 


-- declaration of the value type for the parser stack. 


with psdl_concrete_type pkg, expression pkg, psdl id pkg; 
tuse psdl concrete type pkg, expression pkg, psdl id pkg; 


{ 

type token category type 15 sinceger sea, 
text cat, 
psdl_id cat, 
psdl id sequence cat, 
op Sidiveacr, 
operator name cat, 
opt_arg cat, 
type name cat, 

type decl cat, 

timer op id cat, 
expression cat, 
GXpPEGssi1 On Sequcat, 
property map cat, 
no Value leat)? 


type yystype (token category: token_category type :—= no valuejcag 
is 
record 
case token category is 
-- lexical token attributes: 
when integer cat => 
Integer Valuc-sameegcen, 
When= Gext cara 
CexG value es Gext, 
-- grammar psdl_ id attributes: 
when psdl_ id cat => 
psdl_id_ value: psdl id; 
when psdl_id sequence cat => 
psdl_ id sequence value: psdl id sequence; 
when op id cat => 
op id value: op id; 
when operator name cat => 
type name_part, op name part: psdl id; 
when opt arg cat => 
input value, output value: psdl id sequence, 
when type name cat => 
type name value: type name; 
when type decl cat => 
type deci value. typerdeclancacton, 
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Wieimecimer op id cat => 
timer op_id value: timer op id; 
when expression cat => 
expression value: expression; 
when expression seq cat => 
expression seq value: expression sequence; 
Whenyproperty Map cat => 
property map value: init map; 
when no value cat => null; 
end case; 
end record; 


} 
$% 


start symbol 
: { the program := empty psdl program; } 
psdl 


psdl ; psdl component 
{ if member (name(the component), the program) 
then yyerror("Component redefined: " 
& convert (name(the component) )); 
else bind(name (the component), 


the component, the program); 
end if; } 


component 
: data _type 
| operator 


e 
c 


data_type 
wel Yeh TOKEN IDENTIFIER 
imenescperation Map 3; = empty operation map, 


iomopectEleat+ One = GEue: |} 
type spec 
{ is specification := false; } 
type impl 
{ -- Construct the psdl type using global variables. 


build psdl_ type($2.psdl_id_ value, 
the ada name, 
the imp lang, 
the model, 
the data_structure, 
the operation _map, 
the type gen_par, 
the keywords, 
the description, 
the axioms, 
is atomic_type, 
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the component); } 


type spec 


SPECIFICATION TOKEN optional generic param Optional type dec# 
op _spec_ list functionality END TOKEN 


° 
? 


optional generic param 
GENERIC TOKEN 
{ the type deci 3= empty Eevee ccelaration as 
PISEROr Cype Gee! 
{ the type genlpar == theptypejcech gs, 
| { the type gen par .= empey typ] deca rarron, a) 


e 
f 


optional type decl 


{ the type decl *= empty (eypeudecelaractan as) 
fst OF (eypomcc el: 
{ the model :=— the ltypemde cia, 
| { the model <= empty scypercdeelararlon yas 


° 
A 


Spores ye Cees 
op_spec list OPERATOR TOKEN” PPENTTE TER yoperacor spce 

{ build psdl operator(o3-psalyraivaiue,; 
to ada id($3.psdl_id value), 
Ene impelang, 
Enes gen par, 
Ene Germgpar Fp, 
the keywords, 
the description, 
the axioms, 
Ehe Jnpui,; 
the output, 
Eee state, 
the initial _expression_map, 
Ene exceptions, 
the [speci tired met, 
Ehe Inpuc Ep, 
the output_rb, 
Ehevstate Eb, 
Lhe exceperonmrory 
thegspee mee rp, 
1S eeeOnune . 2 artic, 
the vopr => the operator): 


bind operation ($3.psdl_ id value, 


ENemope tatol, 
the operation map); } 
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operator 
; OPERATOR TOKEN IDENTIFIER 


{ 1s specification := true; } 
Operacor spec 
(erceSpeei fication := fallsie; } 
operator impl 
{ -- construct the psdl operator using the global variables 


build psdl operator($2.psdl id value, 
the ada name, 
the imp: lang, 
Enewgen par, 
the Gen pa pam, 
the keywords, 
the description, 
the axioms, 
Ene sTHpuUE, 
the output, 
ies babe, 
the initial expression_map, 
the exceptions, 
Bie ese Gime Ne ty 
Ene vinpuw gre, 
ENE POUcpUcHEao, 
Piers taLemrb, 
the exception rb, 
the spec met seb, 
Gierdraph, 
the streams, 
Pema Me tas, 
the trigger map, 
Pie we <ceaguard, 
the out_guard, 
EIN etsy) jetealie fol sie 
thie timer op, 


ey jetee 

the fw, 

the mcp, 

the mrt, 

the impl desc, 
gis (ie dey 

ile (exe ide 
the fw_rb, 


the mcp_rb, 

the mrt_rb, 

Ete Cure, 

the © rb, 

the reset rb, 

the start_rb, 

the stop_rb, 

is atomic operator, 
the component); } 
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Operator spec 
SPECIFICATION TOKEN 


{ -- Initialize the variables used to 

== build an operator spee- 

the gen par := empty typerdeclara-ion, 

the gen patetbe. = empe 

che Tnpuy Eos chipey, 

the output_rb := empty; 

the state rb s]senpey, 

the ®@except1 one, —sciipie 7, 

Ehe yspec Met The Seempcy, 

the input i> enpeyeevpe declaration, 

the OuCpue += empe ge yperaeclaracionu, 

the state ‘= Jempry seyecrcdcclararron, 

expression sequence pkg.empey (the init exp seq); 

the initial expresstenm map j)——ciipey se) bean, 
the exceptions <= empey, 

the specified met := undefined time; } 

inkersace 


{ bind initial state(thesstate, the inde e-eagscd, 
the initial expression map); } 
functionality END TOKEN 


e 
g 


interface 
; interface attribute wreqmesmr race 
{ bind spec eb (ene acertbucertypc, 
92.psdl id sequence value, 
°3.psdl ad sequence value) 7 j 
| 
attribute 
; GENERIC TOKEN 
{| the type decl™.= (ene ga cmmod a. 
last of (eype deel 
{ $$ 3= $3; 
the gen par := the typemdeci, 
the attribute type := gen par; 7} 
| INPUT TOKEN 
{ the type décl == the wiapme a) 
list ef type deel 
{ $$ 3:= $3; 
the input := the eypeucgecr, 
the attribute type stnieme: 
| OUTPUT TOKEN 
{ the type decl := the output; } 
list Cb sGypeucdcel 
{ $$ := $3; 
the output := the type deci; 
the attribute vcevypes.—souleout a, 
| STATES TOKEN 
{ the states token Vines. = curreneaainc, 


=- FOrReCELOn Messagdece 
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the states token := convert (yytext) ; 
-—- For error messages. 


PHecmevpe decl = the state; } 
Hise TOtmeeype Cec): 
eetecmetatcs:— ithe type decl; } 
NEY’ TOKEN initial expression list 
ae S32; 


expression sequence pkg.append(the init exp seq, 
yo.€xXpression seq value, 
EDGR int exp seq) ; 


the attribute type := state; } 
| EXCEPTIONS TOKEN id list 
{ $$ 3:= $2; 


Pedletd, set pkg-union(the exceptions, 
to set ($Z-psdl id sequence value), 
Lie excep eLonsa)) 7, 
EhewatEEUDULeatype := exc; } 
| MAXIMUM | TOKEN EXECUTION TOKEN TIME TOKEN time 
{ $$ := ( token _category => psdl_ id sequence cat, 
psdl id sequence value => empty ); 
Pimcneespeeiiied met — undefined time or 
ya.integer value < the _specified | met 
Enewmenewspecitied met := 54.integers value; 
end if; 
ChemactcmrOuce type >= met; | 
—-- Time is converted into millisec 


° 
g 


SeetiitclalhiZatitoneory the type decl is 
-— done by the callers of this rule. 
misteor type dec] 
Piece pe Gece! 1, 1 type deci 
{ $$ := ( token category => psdl_id sequence cat, 
podleadysequence valuc —- 
psdl_id sequence pkg.append($1l.psdl_id_ sequence value, 


93.psdl id sequence value )); } 
| type decl 
{ $$ := $l; } 
type decl 
— tees: type hame 
{ $$ := $1; 


bind type declaration($1.psdl_id_sequence_value, 
yoetyYpDeaname Value, 
the type decl); } 


type name 
IDENTIFIER 
{ -- Save the previous value of the type decl. 
-- Needed because the list of type decl below 
-- might contain nested type declarations. 
ee :— (token category => type decl cat, 
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type dec! value —> tiem type sdec a, 
the type decl <= eiipty typerideclaracron as) 
'[* IvVStref type dceilaaim 
{ the le ypeename ss — 
create(name => $1. psdl_ id value, 

formals => 934. psdi vid) sequeneervaluc 
gen par => the type decl); 

-- Now restore the previous value saved above. 


the type dec] := $2.type decl value; 
$$ := (token_category => type name cat, 
type name value => the type name); } 
| IDENTIFIER 


{ the type name := 
ereate (name => 51 -psdiidi valde, 
formals => psdivid sequence pkg vempty, 
gen par => empty type declaration); 
$$ := (token _category => type name cat, 
type_name value => the type name); } 


cers et 
id list ")) eonelire cer 
{ $$ := ( token category => psdl id sequence Cat, 
psd] _ id sequence value => 
add($3.psdl_id value, 


ol. psdivid sequence Values 7 a) 
| IDENTIFIER 
{ $$ := ( token_category => psdl_ id sequence cat, 
psdl_id sequence value => add($l.psdl_id value, 
empty) )7 ) 


° 
f 


Feqmio Grace 
REQ BY TOKEN id list 


( SS = 62) 
| 
{ $$ := ( token_category => psdl id sequence cat, 
psdl_ id sequence value => empty )7 } 
functionality 


keywords informal desc formal desc 


keywords 
KEYWORDS TOKEN id list 
{ the _keywords := to set($2.psdl_ id sequence value); } 
| { the keywords := empty; } 


° 
f 


informal desc 
DESCRIPTION TOKEN TEXT TOKEN 
{ if is _specification then 
the description := remove braces ($2.text_value); 
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else the impl_ desc := remove braces ($2.text_ value) ; 


end if; } 


ees SpeCiti cation 

Ehevaescrrption 

elsemcueniinel desc 
end if; } 


e 


v 


formal desc 
: axioms TOKEN TEAT TOKEN 
{ the axioms:= 


{ the axioms:= empty; 


° 
f 


type impl 


remove 


then 


a Money? 
[-— Empty, 


braces ($2.text value); } 


} 


: IMPLEMENTATION TOKEN IDENTIFIER IDENTIFIER END TOKEN 
{ is atomic type := true; 


the imp lang 
the _ada_name ¢= 


:= 52.psdl id value; 
Bomadalild(.s psd idevaltiue); } 


| IMPLEMENTATION TOKEN type name op impl list END TOKEN 


{ 1s atomic type := 
Ehewdata  SeLucture 


e 
f 


Speimpl list 


Ease, 
s= $2.type name value; } 


op impl list OPERATOR TOKEN IDENTIFIER operator impl 
{ -- add implementation part to the operator in the 


operation map 


add op _impl to_op map($3.psdl_id value, 


| 


° 
f 


operator impl 


the ada name, 

is atomic operator, 
the operation_map, 
the graph, 

the streams, 
EheRELMers, 
ENemerIgger map; 
the exec guard, 
the out guard, 
Pee Cop meg Gein, 
the timer op, 
ENemper, 

the fw, 

the _mcp, 

Ene mere, 

the impl_ desc ); } 


IMPLEMENTATION TOKEN IDENTIFIER IDENTIFIER END TOKEN 


{ is atomic_operator : 
$2.psdl_id_ value; 


fee meet ay helt? yes 


= true; 
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the ada name := to ada id($3.psdl id value); } 
| IMPLEMENTATION _ TOKEN psdl _impl END TOKEN 
{ is atomic operator := false; } 


e 
f 


psdl impl ” 
data_flow_diagram streams timers control _ constraints 
informal desc 


° 
’ 


data_flow_diagram 
{ the graph :—= empty peal guapins) 
GRAPH TOKEN @vertexerst seagemr se 


-- Time is the maximum execution time. 
vertex list 
vertex list VERTEX TOKEN op id optional time graph properties 
{ the _graph := psdl _graph_pkg.add vertex($3.op_id_value, 
the graph, 
94.integer value, 


92 -DErOpDerLy MdpmvalUe jis, 
| 


e 
a 


-~- Time is the latency. 
edge Fist 
edge list EDGE TOKEN IDENTIFIER 
optional time op _id ARROW op id graph properties 
{ the graph := psdl_ graph pkg.add_edge($5.op id value, 

$7.0op_id value, 
93.psdl id value, 
the graph, 
94.integer value, 


$8.property map value); } 
| 


° 
7 


Graph prope sete> 
graph properties PROPERTYSTOKEN IDENTIFIER =" expression 
{ bind($3.psdl_id value, $5.expression value, 
$l.property map value); 
99 := ( token category => property map_ cat, 
property map value => $l.property map value ); } 


{ $$ := ( token category => property map cat, 
property map value => empty init _map ); } 


op_id 
operator name opt arg 


{ $$ := ( token_category => op id cat, 
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op_id value => 

( type name => $1.type name part, 
operation name => $l.op name part, 
inputs => $2.input value, — 
outputs => $2.output value )); } 


° 
a? 


operator name 
IDENTIFIER '.' IDENTIFIER 
{ $$ := ( token_category => operator name cat, 
type name part => $l.psdl_ id _value, 
Op_name part => $3.psdl_ id _value )e } 


Pp LDENTIE LIER 
{ $$ := ( token_category => operator name cat, 
type name part => empty, » 7 
op_name part => $1l.psdl id value ); } 
f 
opt_arg 
Semooelonale la ist "|" optional id list ")* 
{ $$ := ( token _Category => opt _ arg cat, 


input _value => $2.psdl_id sequence value, 

output value => $4.psdl id sequence value ); } 
| { $$ := ( token category => opt arg cat, 

input value => empty, — 

Output value => empty ); } 


° 
7 


Spoelonal id list 
id iste. <= ol; } 
i; { aS dese OLeNucategory => psdl_ id sequence cat, 
psdl_id sequence value => empty ); } 


° 
7 


SorTonal time 


coe time 
{ $$ := (token_category => integer cat, 
integer value => $2.integer value); } 
{ $$:= (token_category => integer cat, 


Peeger value > sundetined time); ) 


streams 
DATA TOKEN STREAM TOKEN 
{ the mEYype decl := empty type declaration; } 
J abe) 6 one TS eyok= se (—foul 
{ the streams s= the type decl; } 
| 
iw thegstreams := empty type declaration; } 


-- The order of id's is not important, so 
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-- we use psdl id set as the data st nueemre 
-- to store the timers. 


me ce ee ce ee ee ee es ee ee ee ce ce es ces ce es ce ce ce ce ce ce ce ce cc ce ee ee ee ee i 


timers 
TIMER, TOKEN ia miarst 
{ the timers := to set($2.psdl id sequence values}; } 
{ the timers := empty; } 


control constraines 
CONTROL TOKEN CONSTRAINTS TOKEN 
{ the | _trigger map := empty trigger map; 

the per := empty timing map; 
the fw := empty timing map; 
the mcp := empty timing map; 
the mrt := empty timing map; 
Ene €xec guard = cnpe, excemquatcumap, 
the out guard) := empty cutsgquaresmap, 
the excep trigger += empty except elgg] aamar, 
the timer op := empty timer op map; 
the | "eg rb := empty; 
the per ro s:— enpey, 
the fw ibs ;— empty, 
the mcp_rb := empty; 
Ene Mine empty; 
Ehe OsSEDm = cmeen, 
the | sec —srbm := empty; 
the reset _Srbm := empty; 
the start srbm >= empty; 
the stop srbm := empty, 
el Cie FS Slee y 
the e fo. = empty, 
tne beset coer, = cles, 
the Stabe Gos. = enpey, 
the stop rb := empty; } 

constraints 


constraints 
constraints OPERATOR TOKEN op id 
{ the operator id := $3.op id value; 
the timeryop set => timersop set pkg cnury a 
opt trigger opt period) ope finteniwie iene 
opt_mcp opt_mrt constraint _options 
{ bind (the cperator ad7 the clusrbm, se ncmomrc) 
bind (the operator id, the ess Ebi, the e _xb); 
bind (the JOperaremeia, the _ EeSehesmbm, the reset rb); 
bind (the Operator sar the_ SCart Srpm; seme Start Bro)e 
bind (Cheneperaton vid, the_ _ stop srbm, the stoperbd); |} 


e 
av 


constraint options 
constraint options OUTPUT TOKEN 
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id_list IF _TOKEN expression reqmts trace 
{ the output id.op := the operator id; 
porerd: psdl id in - 
psdl_ id sequence pkg.scan($3.psdl¥id sequence value) 
loop ss 
the output id.stream := id; 
bind(the output id, $5.expression value, 
ENenOUC. Guard): 
bind(id, $6.psdl_id sequence value, the_o_srbm); 
end loop; } 
feecOns Eraint options EXCEPTION TOKEN IDENTIFIER 
SpE TPE predicate regmts trace 
eeiomexcep icd.Op <= the operator id; 
Piewexcep Ttd.excep :— 53.psdl _ id _value; 
bind(the mexcep id, 94. expression value, 
Pier ace poLElgger) ; 
Eiiciesspsd) tdi value, So.psdil id sequence value, 
Pewee s COM) rs 
Pecomccteatie Options timer op IDENTIFIER 
Svierespreateate reqmts Crace 


feEfemeimer Op record.op id := 52.timer op _id_ value; 
Mice EEOp record. timer id := §32psdl id _value; 
Ehe timer op record.guard := $4.expression value; 


EMMemsoOpmset pkg.,add (the timer op record, 
thew@eimer Opmset); 
Dene unesoperator 1d, the timer op set, the timer op); 
Sisc ENe@EtMer Op Eecord-op id is 
when eereset => 
Dane; capsd rc Valuc, 45.psdl id sequence value, 
Eve reset Ssrbm); 
Vien eestalt =- 
bind($3.psdl_ id value, $5.psdl_id sequence_value, 
Bie wstart Srbm); 
when t stop => 
bind($3.psdl_id value, $5.psdl_id_ sequence value, 
the stop srbm); 
when € none => null; 
-- This case is impossible but the compiler can't 
recognize that. 
end case; } 


° 
& 


ope rcrigoger 
- TRIGGERED TOKEN trigger opt _ if predicate reqmts trace 
{ bind(the BOperadtoOrsrd,) >S.expression value, the_ exec guard); 
bind(the operator id, $4. psdl_id sequence value, 
phe eq err as) 
| 


e 
f 


Piece t 
BY ALL TOKEN id list 


oA 


{ the) Ceigger ct -—sc eae. 
the trigger.streams := to set (92 pedi id sequence valuce 
bind(the operator 1d, thestriqgen ss Cicme Mager mapas) 
| BY SOME TOKEN id list 


{ the (Eetqger.et :—-sby some; 
the trigger.streams := 9Co set (SZ. psd igrd sequence valves 
bind(the operator id, the trigger, une ertqgqer sia eam, 

{ the trigqger.tt):— byenene, 
the trigger.streams := empty; 


bind (the operator id, (“the trigger, eheme: ogersucaD) as 


opt period 
— PERIOD TOKEN time reqmts trace 
{ bind (the | OPSracOr eye een eds av aele eee pe lie 
bind(the operator id, $3.psdl tagsequence value, 
Ehe (per (Eo) ae 
| 


e 
7 


opt finish ween 
FINISH TOKEN WITHIN TOKEN time reqmts trace 
{ bind(the _operator_ wel Ss integer value, the _fw); 
bind(the operator id, $4.psdl id sequence — value, 
the fw rbpy; } 


opt mcp 
: MINIMUM_TOKEN CALL PERIOD TOKEN time reqmts trace 
{ bind(the _operator_ id, Se. integer value, the mcp); 
bind(the operator id, $4. psdl idvsequence value, 
the mcp rb); } 
| 
opt_mrt 


; Max Esp iti Meese ime seeqnieomeracee 
{ bind(the operator ad, $2. integer Value a cneniar En, 
bind(the operator id, $3.psdl id sequence value, 
Che IMEC ele), 


e 
f 


max_resp_ time 
MAXIMUM TOKEN RESPONSE TOKEN TIME TOKEN 


timer op 
RESET TOKEN 
{ $$ := (token category => timeriicpe dicat, 
timer op id value => t reset); } 
| START TOKEN te 4 
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{ $$ := (token_category => timer op id cat, 
Eimer Op 1d value => t start); } 
| STOP TOKEN > 
{ $$ := (token_category => timer op id cat, 
timer _op_id_ value => t_stop); } 


Speett predicate 
Pelee OhEN expression 


{ $$ := (token_category => ExXpressiom cat, 
expression value => $2.expression value); } 
| { $$ := (token_category => expression cat, 


expression value => true expression); } 


™o 


——— ee ee oe ee cc ec ce ce cc cm ce ce ee ge ee ce ce cc ce ee ee ce ee ce ee ee ee ee ee eee ee 


-- The expression sequence 
paelomuccdepy procedure bind initial state together with 
See elewotatoam Map tO COnSstruct the init map. 


cc cr cr crc ce cr cr cr cr cr cr cr cr cm cr ce cr cm crm mmc cr cr cr crc crm cr cr ce cc ew cm ce ee we ee ee ee ee ee 


foictal expression list 
TiteiaeexpeesslOn list *',* initial expression 
{ $$ := (token category => expression seq cat, 
exprecssi1on seq value => 
expression sequence pkg.add($3.expression_ value, 


wreapkession seq value }); } 
eet exprese.on 
{ $$ := (token category => expression_seq cat, 
expression seq value —— 
expression sequence pkg.add($l.expression_value, 
empty exp_seq )); } 


=o 


—— oe eee eee cee eee cee ee ee ee ee ee ee ee es ee ee ee ee ee ee ee ee es ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee eee a ee ee ee ee n= ss 


-- There is one and only one initial state(initial expression) 
-- for each state variable. This production returns one 

-- expression to the parent rule corresponding to one state. 
-- This is done by using the internal stack ($$ convention). 


este sip ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee es ee ee es ee ee es es ee eee ee ee ee ee em ee ne ene ne es = 2 = 


initial expression 


TRUE 
{ $$ := (token_category => expression_cat, 
expression value => true_expression); } 
| FALSE 
lf => += (token category => expressionmcat, 


expression value => false expression); } 
| INTEGER LITERAL 
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{ $$ := (token category => expression _cat, 
expression) value. —- 
create integer literal (Sivintegersvalue) js} 
REAL LITERAL 
{ $$ := (token category => expression cat, 
expresision value => ’ 
create real diteral(] i) cent va tue). 
STRING LITERAL 
{ $$ := (token category => expression cat, 
expression value => 
Create se ringml rectal. |: Cox ema ue jae, } 


IDENTIFIER 
{ $$ := (token category => expression cat, 
expressions ve ues] 
create identifier($l.psdl id value)); } 
type name 9 tps Tlie 
{ $$ := (token category => expressionmeae, 
expression value => 
create function call(ot type namesvalue, 
psdl_ id(S3 psd) id yvalues 
empty exp seq)); } 
type name ©.’ FDENTIFIER * ("initial vexpressicong sos 
{ $$ := (token category => expression _cat, 


expression, value => 
create function call($1.type name value, 
psdl_id($3.psdl_id value), 
$5.expression seq value) );} 
'(* anitial expression: = 
{ $$ := (token category => expression cat, 
expression value => $2.expression_value) ; 
} 
initial €xpsessien Tog op initial véexpressien 
tprec logucalmoperaconu 
{ $9 := (token category => expressrouycaec, 
Sxpress TonmvcdlUes— = 
create binary op ($l.expression value, 
92.psdl id value, 
$3.expression value) ); 


initial expression rel op anecialexpressiom 
Sprec relativenaimgepera tor 
{ $$ := (token category => expression cat, 
expressiounvalue | —-— 
create binary op ($1.expression value, 
9o- Ped) varie, 
$3.expression value) ); 
(=) Peta ex > re ssctom 
éprec unary adding operator 


{ $$ 3= (token category => expression cat, 
expression value => 
create unany Op(convertias jn 


$2.expression value )); } 
ft) init tate eapress tom 
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prec unary adding operator 
{ $$ := (token_category => expression cat, 
expression value => 
Greate unary op(convert ("+"), 
~2.etptecs Fon evalue)))) ; } 
| initial expression bin add op initial expression 
tprec binary adding operator — 
{ $$ := (token_category => expression cat, 
expression value => 
create binary op ($l.expression value, 
$2.psdl_id value, 
$3.expression value)); ) 
ieitirtialeexpression bin mul op initial expression 
prec multiplying | operator 
{ $$ := (token category => expression cat, 
expression Value => 
Greate binary op ($l.expression value, 
$2.psdl id value, 
93.expression value)); ) 
Peenteialeexpression EAP TOKEN initial expression 
$prec highest _precedence__ operator 
{ $$ := (token _category => expression cat, 
expimeaston value => 
ereate binary op ($l.expression value, 
comvert (“**") , 
pJexptesslom value); 


| NOT TOKEN initial» expression 
prec Rignest spreeedence operator 
ete eee eTmCAregOLy —> Expression Cat, 
empression value => 
Greate unary op (convert ( NOTE), 
HZeeXP ress tonmy a. Wes) i, a) 
| ABS TOKEN initial expression 
Sprec hence ahammecedence Operator 
{ $$ := (token_category => expression cat, 
expression value => 
Greate unary op(convert ("ABS"), 
$2.expression value )); ) 
| "2" { $$ := (token category => expression cat, 
expression value => undefined_expression ); ) 


log Op 
: AND TOKEN 
{ $$ := (token category => psdl_ id cat, 
psdl id value => convert("AND") ); ) 
| OR_TOKEN 
(ieee = (bomen category —> psdl id cat, 
psdl id value => convert("OR") )7 } 
| XOR_TOKEN 
{ $$ := (token_category => psdl_id_cat, 


psdl_ id value => convert("XOR") ); } 


35 


rel op 


a 
{ $$ := (token category —> psd railcar, 
psdl Adivalue —- convert) ae 
| ty! ie 
{ $$ := (token_category => psdl id cat, 
psdl id@value —> convert (">") ee 
| C—! 
{ $$ := (token —Cacegory => pod @iidicac, 
psdl | acl value => convert ("=") ); } 
| GREATER THAN OR _ EQUAL 
{ $$ := (token _category => psdl_id cat, 
psdl _ acl value => convert(">=") ); } 
| LESS THAN OR _ EQUAL 
{ $$ := (token _category => psdl_ id cat, 
psdl_id value => convert ("<=") ); } 
| INEQUALITY 
{ $$ := (Coken category —> psdiiidicac, 
psdl_ id value => convert("/=") ); } 
bin add op 
oa a ‘4 
{ $$ := (token category => psdl_ id cat, 
psdl_ id value => convert("+") )7 } 
| tH 
{ $5 := (token_category => psdl id cat, 
psdisidevalueg—> convertl'> ) 3) 7.) 
| es 
{ $$ := (token category => psdl_ id cat, 
psdl_ id value => convert("&") ); } 
bin mul _ op 
tw 
{ $3 := (token category => psdiid cat, 
psdl id value => convert ("*") ); } 
| fa 
{ 35 += s@iteokensecategory —- psdiiagear, 
psdl id? vale —> “convert ge] am) 
| MOD TOKEN 
{ $5 := (token category => psdl id cat, 
psdl_id value => convert("MOD") )7 } 
| REM TOKEN 
{ $$ := (token category => psdl id cat, 
psdl id value => convert ("REM") ); } 


time 
time number MICROSEC TOKEN 
{ $$ := (token _category => integer cat, 
integer value => ($l.integer value + 999)/1000); } 
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| time number MS TOKEN 
{ $$ := (token_category => integer cat, 
integer value => $l.integer value); } 
| time number SEC TOKEN 
{ $$ := (token_category => integer cat, 
integer value => $l.integer value * 1000); } 
| time number MIN TOKEN i‘ 
{ $$ := (token_category => integer cat, 
integer value => $l.integer value * 60000); } 
| time_number HOURS _ TOKEN 7 
{ $$ := (token_category => integer cat, 
integer value => $1.integer value * 3600000); } 


e 
af 


time number 
INTEGER LITERAL 


{ $$ := (token_category => integer cat, 
integer value => $l.integer value); } 


SP eGess bone la sit 
esp tess lOnel@cts, expression 
{ $$ := (token category => expression seq cat, 
expression seq value => 
expression sequence pkg.add($3.expression value, 


,l.expression séq value )); } 
{ expression 
{ $$ := (token category => expression seq cat, 


expression seq value => 
expression sequence pkg.add($l.expression value, 
empty exp seq )); } 


ec ee a ee ee es es es ee es es ee es es ce we ee ee ee ee ee es ee ee ee ee ee es es es ee ee ee es 


-- Expressions can appear in guards appearing in control constraints. 
-- These guards can be associated with triggering conditions, or 

-- conditional outputs, conditional exceptions, or conditional timer 
-- operations. Similar to initial expression, except that tim e values 
-- and references to timers and data streams are allowed. 


— eo ome eee cee ee cee ee ee ee ee ce ee ee ee ee ee ee ce ee ce ee ce me cs es ce es es es es ee ee ee ee ee i ee ee em ee 


expression 
TRUE 
{ $$ := (token category => expression cat, 
expression value => Crue expression); } 
{| FALSE 
{ $$ := (token category => expression cat, 


expression value => false _ expression); } 
INTEGER LITERAL 
{ $$ := (token category => expression_cat, 
expression value => 
create integer literal($l.integer value)); } 
| REAL LITERAL 


i) 


{ $$ := (token category => expression cat, 
Express Onmva lieu, 
ereate real literal(ol. ce ava iie a) 
| STRING LITERAL 
{ $$ := (token category => expression cat, 
expression value => 
create string literali>) Cexcavaive) je) 
| IDENTIFIER 
{ $$ := (token_category => expression cat, 
expression Valves —— 
create identifier( >! psdl sidevalwe) ia) 
--— The only difference from the initial expression 
| time 


{ $$ := (token_category => expression cat, 
expression value => 
create time literal (natural(ol integeray auc ears, 
| type name “se Ss. DENT TErER 
{ $$ := (token_category => expression cat, 


express One vd Vera. 
create function cali(ei. Cype name value 
psdl _ id($3.psdl]_id value), 
empty exp _seq)); } 
| type name ©.” IDENTIFIER 4 expressionma (scam 
{ $$ := (token_category => expression cat, 
express) oOnm value l— 
create function call(>i typemame value, 
psdl_id($3.psdl_id value), 
5..e€xXpression seq value) jay 
| '(* expression ‘')' 
{ $$ := (token_category => expression cat, 
expression value => $2.expression_ value); 
} 
| CXpression, og uep expressten spree logical operacor 
{ $9 <> (token category => expression cat, 
expression value => 
create binary op ($1.expression_value, 
$2.psdl_ id value, 
$3.expression value)); } 
| expression relvop expression spree relattonamOoperaeon 
{ $$ := (token_category => expression cat, 
expression value => 
create binary op (¢1.expressien value; 
92 SC Lic aee 
$3.expression value)); } 


‘-" expression Spree Unde sddcdinguOpe Lacon 
{ $$ := (token_category => expression cat, 
expression value => 
ercate Unary (Op Ss convert jasc, 
9e.eXkP Less momen ale) aa) 
| ‘'+' expression prec unary adding operator 
{ $$ := (token_category => expression cat, 
expression value => 
Erecate unary sco | COnVeCre sass: 


92.expression value) 
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| @xpression bin add op expression 
prec binary adding operator 
{ $$ := (token_category => Expression cat, 
expression value => 
create binary op ($l.expression value, 
S22 pod lerayvalue, 
$3.expression value)); } 
| expresssen bin mul op expression 
prec multiplying operator 
{ $$ := (token_category => expression cat, 
expression, Value => 
create binary op ($1.expression_ value, 
$2.psdl_id value, 
93-expression value)); } 
| expression EXP TOKEN expression 
SPrccantaqhiesiepreceaence Operator 
{ $$ := (token category => expression cat, 
expression value => 
Create binary op ($l.expression value, 
CONVELt | .2* )> 
$3.expression value)); } 


{ NOT TOKEN expression $prec 
Pugnest precedence operator 
{ $$ := (token category => expression cat, 
expEcscrOn Value => 
Create unary op (convert("NOT"), 
$2.expression value)); } 
| ABS TOKEN expression $prec 
highest precedence operator 
jerveeatcOken Category => expression Cat, 
expressiten value => 
Create unary op (convert ("ABS"), 
$2.expression value)); } 
| *?' { $$ := (token category => expression_cat, 


expression value => undefined expression ); } 


cee mee mee ee we ee ee ees ee ee Oe a a nn nn sn ss ss 22.02 20°22: SE = 


with psdl_ program pkg; use psdl program pkg; 
Wich bextule, use text 10; 
package parser is 
procedure get({item: in out psdl program); 
procedure get(file: in file type; item: in out psdl_ program); 


Svileame thor me xGepelOn,; 
Semantie Error: GxCeption; 


oo 


end parser; 


ce me ee 
— ee ee ee ee ee ee ee ee = ee ee ee ee ee ee ee ee ee or ee ee ee ee ee ee ee ee ee es es ee ee ee ee oe ee oe ee eee ee Oe eS ee ee ee eS eS ee 


ae 


me i ee i a a eee 
——s—Vr— er 3. eae om ae ce me ee = ee ee ee ee ee ee ee ee ee 2 Oe Oe oe oe ee eee ee ee ee Oe es ee Se ee ee 


with parser tokens; suse parsemerokenar 
with parser goto; use parser goto; 
with parser shift reduce; use parser Shi eeseeeduec, 
With parser Vex Suse parsermmia 
with parser lex dfas use parser lex dfa; 
with psdl_component_pkg; use psdl_ component pkg; 
with psdl concrete Cype pkg; use "psd iconcreresE ypeurkd: 
with psdl_id pkg; use psdl id pkg; 
with ada_id pkg; use ada id pkg; 
with psdl_ graph _ pkg; use psdl graph_pkg; 
with expression pkg; use expression pkg; 
with spec req map pkg; use spec req map pkg; 
with cc_req map pkg; use cc req map pkg; 
with cc_req map _map_pkg; use cc_req map_map_pkg; 
with psdl_ io; use psdl io; 
package body parser is 
subtype exp seq is expression sequence pkg.sequence; 


function empty exp S¢é€q return expressten sequence 
renames expression sequence pkg.empty; 
-- Returns an empty expression sequence. 


type attribute type is (gen par, input, GUEpUE, sstate, exe, mce), 


-- global variables used by the parser. 

the program: psdl_ program; 

the component: psdl_ component; 

the operator: operator; 

the atomic type: atomic type; 

the atomic operator: atomic operator, 

the composite type: composite type; 

the composite operator: composite operator; 

tne ada Mame: sacamic, 

the imp lang; psaljjid, 

the gen pan: typervdeclaratren: 

the type generar. st ype.cdecloracroen, 

the keywords: psdl_id set; 

the description: tener, 

thevax1toms - = text, 

the output id: outcpucegra, 

-- a temporary variable to hold output id to construc. oulsquard 

map - 

the exceplade.cepe. a, 

-- a temporary variable to hold excep id to construct excep Errvagqes 

map 

the model: type décllararson; 
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the operation map: operation map; 

the data structure: type name; 

eVemiupuil.seype aeclaration; 
the output: type declaration; 
Eiewstake., type declaration, 
EnewotaltesmFoken line: natural; 
the states token: text; 
Ene ingtialsexpressiton map: init map; 
the exceptions: psdl_id set; 
the specitied met: millisec; 
the graph: psdl_graph; 
the streams: type declaration; 
the timers: psdl_id set; 

the trigger map: trigger map; 
the exec guard: exec _guard_map; 
the out guard: out_guard_map; 
the excep trigger: excep _ trigger map; 
the timer op: timer _op map; 
the per: timing map; 
the fw: timing map; 
the mcp: timing_map; 
the mrt: timing_map; 
the operator id: op_id; 

-- is used for storing the operator id's in control constraints 

part 

is atomic _type: boolean; 

Sener taeene psdal component 1s an atomic type. 
Poecatonic Operator: boolean, 

Seba ieee poah component 1s an atomic operator. 
fionspecitication: boolean; 

-- True if the current unit is a psdl specification part. 
EnCetnREEEexpD Seq: exp sed; 

-~- Holds the initial expressions for all state variables in an 

Spe racor Spec. 
the type name: type name; 
iEmeeype cecil: Cype declaration; 
-- Used to hold an inherited/synthesized attribtue pair. 

Enemerrgger: trigger; 

Piestimer Op record: Cimer op; 

Piemil Melson set. ttmer op Set, 

Prue wltwl desc. —Cext, 

Ene acer bute type: attribute type; 


EReRgenuparerb>: spec req map; 

the input _rb: spec req map; 

the output _rb: spec _req map; 
Enemotate uno: spec req map; 
tNemexcCeDeEloneLbi Spec req map; 
CiemoeecemoumrO asp od ici sequence; 


the _eg rb: cc_req map; 
ERE perero. sce ured amap, 
the itwirb ec req map; 
the mcp rb: cc req map; 
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the mrt_rb: cc_req map; 


the o srbm: spec _ req map; 

the e srbm: spec _req map; 

the reset “srbm. spec equmnap, 

the start _srbm: spec _req map; i. 
the stop srbm: spec req map; 


Che 0 Fb: ce req map map, 
the € ©; sce req imap map, 

the reset rb: ce Freq map) map, 
the start rb: cc_req_ map map; 
the stop rb: cc_req map_map; 


has syntax error: boolean := false; 


cc cc ce ce ce ee ee ce ec cs ce cc ce cr cr ce ce cry cr cy ce ce cy ee ce cy cr cp cc ce ce ce ee ee es es ee es es oe ee 


procedure Initialize state iva eile oes 
begin : 

yyval := (token Category => no value eats, 
end initialize §seatewvariables, 


procedure yyerror(s: in string := “syntax error"; 
err line: natural) > —- currence ine, 
ermecoken: text <= convert yyeext) jms 


Space: integer; 
begin 
new line; 
put_line(standard error, 
"Tine & antceger image(ereelin.) sc. ee 
me (erepiiiimiere epee (ee) soy) 
space >= integer image (ers Nine) Wewojcha. 
Intveger (Converter COken)) longest or 
for 21 in 1 .. space loop put(standard eCreOny =] J) wencslccm, 
pur line standarelget 207s es a 
has syntax error := true; 
end yyerror; 


-- given a string of characters corresponding to a natural number, 

-- returns the natural value 

function convert to natural(string digit: string) return naturale] 
digit, value : natural := 0; 
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begin 
foOreieit we Sehing Gigit*length loop 
SaeesserinigualgiLi(i) is 
when '0' => digit := 
when ‘1' => digit := 
when '2' => digit := 
when '3' => digit := 
when '4' => digit 
when '5' => digit 
when '6' => digit 
when '7' => digit := 
when '8' => digit 
when '9' => digit := 
when others => return value; 
end case; 
value := (10 * value) + digit; 
end loop; 
return value; 
PioecOnverc GO natural; 


(I te ot fl 
won nuonk WNEF © 
Se *e Re Seo Bo Se Re Bo Be 
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me cc ces ce ce cr cr cr crm cr ce cr rs ce ce ce cm rs cm we ce ew cc ee ee ee ee 


ae procedure get 


-- reads the standard input, parses it, and creates the 
-- psdl adt. 
Peceealnesgetqrtem: Jn out psdl program) is 
begin 
initialize state variables; 
iota Zemyyle x; 
yyparse; 
iPoeias oyncax error then 
assign Peempe empty psdl program) ; 
Palco usyita terror; 
end if; 
assign(item, the_program) ; 
end get; 


mc cc cc cr ce cc cc cc ce were ee ce ee ce ce ce ce cree rere ce ce ce ee ce ee eee ee ee ee ee ee eee eee eee ee eee eee 


= procedure get 


-- reads the psdl source file froma file, 
—- parses it, and creates the psdl adt. 
macceauresget (file. an file type; 
item: in out psdl program ) is 

begin 

Scene npwe (fi leje 

get (item) ; 

Seteinput(standard input) ; 
end get; 


a Proceduressind type declaration 
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—=—bind each 146th tem ene sic 
--set to the type name 
==reEuUniet eMp ayes mace 
procedure bind type declaration(1 s: in psdl 1da)sequence, etn in 
type name; 
td: in out type wdecla rat tonic 

begin 

for id : psdl id in psdi id sequence pkg scans) moo. 

bind(id, tn, ea 

end loop; 

end bind type declaratven, 


tel ie el ec ee ieee ee 


aie procedure binds inittialyseace 


-- Bind each id in the state map domain 

-- set to the type name initial expression 

procedure bind_initial state(state: in type declaration; 1nielsec eas 
exeeoea, 

init exp map: 2 OUE thi temar jes 
i: natural := Q; 

begin 
-- Added by Dave Dampier 20 April 1994 to 
-- eliminate use of the M4 Macros, 
-- and adopt use of the new generator processor for loops. 


for id psd ia eds: SGy pe nance 
type declaration pkg. Scan(state) = loop 


i = a Pee 
if i > expression Sequence pkg- length (ante sseqieenem 
yyerror("semantic error - some states are not initialized.", 


the states token line, the Sstatesmrore.)] 
Bai Se Semae me mato, 
else bind(id, 
expression sequence pkg. fetch (tne seq a, 
init exp map); 
end if, 
end loop; 
-- End of Added Code. 
-- Also eliminated old M4 code. 


if i < expression sequence pkg. Vengen ame sec) meried 
yyerror("semantic error - — 
there are more initializations than the states", 
the states token line, the sstdjecs coen):, 
raise semantic error; 
end if; 7 
end bind initial state; 


——_——_—_——— ce re ee cr cr tre re te me cr re re ec cc ce ce ce ee eee ee ee i 


== procedure bind spec rb 
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-— Bind each id in the ids to the required-by sequence 
-- in the appropriate spec requirements map. 
peoececdure DInd spcee rbia t: attribute type; ids, reqs 
psdl id sequence) is 
begin 
Gadse dee is 
when Gen pak —— 
for id : psdl_id in psdl_ id sequence pkg.scan(ids) loop 
bind(id, reqs, the gen par rb); 
end loop; 
when input => 
toegtae: spsdal iid vin psd?i id sequence pkg.scan(ids) loop 
bandiid, reqs, Che input rb); 
end loop; 
when output => 
Pomc. socal sidein psdi td sequence pkg.scan({ids) loop 
binatic reqs, the Output riije; 
end loop; 
when state => 
foe pocleicdeimn psdlvid sequence pkg.scan(ids) loop 
PEGE -asnheqs, the state rb); 
end loop; 
when exc => 
for 142°: psdl 1d in psdl id sequence pkg.scan({ids) loop 
Pence regs, Ene exception rb) ; 
end loop; 
when met => 
-- This case is different because the specified-met required-by 
-- applies to the entire operator. 
-- Normally there should be at most one specified met, 
-- but if there is more than one, the requirements traces are 
-- combined. 
for id : psdl_id in psdl_ id sequence pkg.scan(reqs) loop 
iPenotememberiid, the Spec met rb) then 
acai Pernerspec met rb); 
ena ii; 
end loop; 
end case; 
SHasoImcespec Ebi; 


function remove DEacesit: text) return text 1s 


Saserlngua:= EOusering (t); 

len: natural := length(t); 
begin 

BectiGiimcOmcexcAci2 .- Len—l)); 


end remove braces; 


-- Generated body of yyparse goes here. 
##%procedure parse 
end parser; 
—e KKK KKK KKK Ka KKK K Ke Kk KKK KaK 


-- Parser Tokens 
aK KKK KKK KKKK Ke KKK KKEKKKKKHK 
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with Psdl Concrete diype Pkg, Expressilonmerq hoc lmloe. a. 
use Psdl Concrete Type Pkg, Expression Pkg, Psdl Id Pkg; 
package Parser Tokens is 


type token category type is (integer cat, 
text cat, 
Psalaidrecat, 
psdt Wd sequencescac, 
op_id cat, 
operator name cat, 
Opt_arg cat, 
type name cat, 

type decl cat, 

tLMe nr Op ele seae, 
expression cat, 
expression seq cat, 
property map cat, 
nolvalWeweat |: 


type yystype (token_category: token category type °== nogvaluchca 


is 
re Coma 
Gase  COkeimearcgony ats 
-- lexical token attributes: 
When ah Ge ge ise cas 
integer value: integer; 
Wien. Cext lGace—- 
ext ye value. stext, 
-= grammar psdl id attributes: 
when psadl id cait => 
psdid Vale- pod herd, 
when psdl) id sequence (cats —- 
psdl id sequence value: psdierd sequence; 
when op id cat => 
op_id value: op id; 
when operator name cat => 
type name part, op name part: psdl id; 
when opt_arg_cat => 
input value, output value: psdl id) sequence; 
When ype name veal —- 
type name value: type name; 
when type decl cat => 
type deci! value. type declararion,, 
when timerlep tateares 
timer op id value:  cimersopurd, 
when expression cat => 
Expression values (exp reso ten, 
when (€xpression seq (cat —> 
expression Seq value: expression sequence, 
when property map cat => 
property map value: init map; 
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when nomvalues cat => null; 
end case; 
end record; 


YYLVal, YYVal : YYSType; 
type Token is 
(induoteimpinc, Error, '?', ‘{', 
Cee etegal Token, *(', 
paice = Seek abe ee 
v2 ts ee 
'|', Arrow, True, 
False, Axioms Token, By All Token, 
Req By Token, By Some_Token, Call Period Token, 
SConperole Loren, constraints Token, Data Token, 
Description Token, Edge Token, End Token, 
Beceperons 1oken, Exception Token, Execution Token, 
Pimtonenoken, Generic Token, Graph Token, 
Hours Token, If Token, Implementation Token, 
Initially Token, Input Token, Keywords Token, 
Maximum Token, Minimum Token, Microsec Token, 
Min Token, Ms_Token, Mod Token, 
Not _ Token, Operator Token, Or Token, 
Tiree nokeny a reriod Token, Property Token, 
Reset Token, Response Token, Sec Token, 
Speer teaciom,loken, Start Token, States Token, 
Stop Token, Stream Token, Time Token, 
Binet ch,mieiggered Token, Type Token, 
Vertex Token, Within Token, Identifier, 
Pires iemeeral, heal Giteral, string Literal, 
Text Token, And Token, Xor Token, 
iheGueaimOperator, ‘*<', '>', 
"=", Greater Than_Or Equal, Less Than _Or Equal, 
Piecucliney pane lational Operator, ‘+', 
ee oeeinarLy Adding Operator, 
UnaryencdammguOperator, “*', '/', 
Rem Token, Multiplying Operator, Exp Token, 
POs plore, iignese Precedence Operator ); 


Syvltaxshrron : exception; 


end Parser Tokens; 
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~- AWK script for Parser 
awe Ke KKK KKK KKK KK KK KKK KKK KK 


/procedure YY\ USER\ ACTION is/ { 
# keep this line and the "begin" that follows. 
Diane yO 
getline 
print $0 
# replace the body of the procedure with our code 
pring = increment column numberiyyrexe tengenis. 
# get the "null;" and discard it 
getline 
Pex: 


} 
# 


# otherwise pass the line through 
= 
{ print FO 7} 
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APPENDIX C: SELECTED SOURCE CODE (PSDL EDITOR) 


# Makefile for PSDL Editor 


SHELL /usr/bin/csh 


C DIR = ./C Code 

INCLUDE FLAGS = \ 
=e 
SESE EeDIR) | \ 
-I$(PT_DIR)/GENERIC TYPES \ 
-I$(PT_DIR)/INSTANTIATIONS \ 
-I$ (PARSER_DIR) 


feboee—txm —1Xt —ixXext -1X11 -1lm -lg++ -lgece 


PSDL TYPE = \ 
et. DIR) /psdi_io.ali 


GE OBJECTS = \ 
$(GE DIR)/graph editor.o \ 
$(GE DIR)/operator object.o \ 
mich OER) /Stream object.o \ 
$(GE DIR)/spline object.o \ 
GE DER) / Graph object 1ist.o \ 
$(GE_DIR)/font_table.o \ 
$(GE DIR)/graph object.o \ 
$(GE DIR) /setcursor.o \ 
$(GE_DIR)/gettopshell.o \ 
$(GE DIR)/postpopup.o \ 
$(GE DIR) /build option.o \ 
$(GE_DIR)/timer tool.o \ 
S(GE DIR) /action area.o \ 
$(GE DIR) /warning.o \ 
$(GE DIR)/ge_utilities.o \ 
$(GE DIR)/stream_property menu.o \ 
$(GE_DIR)/operator property menu.o \ 
S(GE DIR) /windows.o \ 
» (GE DIR)/get unique id.o \ 
$(GE DIR)/ge_utilities debug.o \ 
$(GE DIR) /report errors.o 


PARSERS = $(PARSER DIR)/parser pkg.ali 


LOCAL OBJECTS = \ 
$(C_DIR)/main.o \ 
7 (© DER) /sdetsitructure.o \ 
$(C_DIR)/sde globals.o \ 
$(C_DIR)/ge_support.o 
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GENERATED ADA = \ 

analysis pkg.adb \ 
at_list_pkg.adb \ 

ge util teres accom 

id _listipkg. ache, 

To Werlites waar, 
op_list_pkg.adb \ 
psdljutilicics pkg. ado. 
Sem bict. kd -aciou, 


# editor io pkg.adb \ 
# editor To pkg-Ucil Terres aap 


SOURCES = \ 
action node pkg.ads \ 
action node pkg.adb \ 
analysis pkg.ads \ 
analysis pkg.adb \ 

AG es ea pkgeadsms, 

aG Tits eepk¢acdb a. 

c boolean _pkg.ads \ 

c boolean pkg.adb \ 

c int pkg.ads \ 

G string pkg, acdsa\ 

© 7string pkg. adh, 

G unsigned int pkg-ads \ 
duration type pkg.ads \ 
error msgs pkg.ads \ 
error msgs pkg-.adb \ 
ge_action pkg.ads \ 
ge_action_ pkg.adb \ 
ge_interface pkg.ads \ 
ge_ op id_pkg.ads \ 

ge (ep td pkgn adam. 
ge_operator pkg.ads \ 

ge operator pkg.adb \ 

ge UCriggerstypespnd adem, 
Ge Crigger type okg.4aaom. 
Ge Ubi Petes acces, 

Ge. Ut dn Giles clone, 

graph desc pkg.ads \ 
graph desc pkg.adb \ 
id_list pkg.ads \ 

id list _pkg.adb \ 

10 UClIa ties adcay 

io Uti lrTe1es adi 
op_list_pkg.ads \ 

op_ list _pkg.adb \ 
property names pkg.ads \ 
property names pkg.adb \ 
psdl_editor.ads \ 

psdl editor.adb \ 

psdl editor pkg. ado, 
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psdl editor pkg.adb \ 
pedieurtiltties pkg.ads \ 
psdl utilities; pkg.adb \ 
spline ptr pkg.ads \ 
SDiEne bik pDKgG.adb \ 

st_id pkg.ads \ 

Statist pkg.ads \ 

st_ list pkg.adb \ 

stream pkg.ads \ 

stream pkg.adb \ 

Erne ELI gger type pkg.ads \ 
eime trigger type pkg.adb \ 
time unit type pkg.ads \ 
time unit type pkg.adb \ 
unique id pkg.ads 


SCRIPTS = \ 
Makefile \ 
gen.sed 


mOUPPIXES: 


eel 
(edeo GER) 7 make gil) 
(cd $(PARSER DIR) ; make parsers) 
(cd $(GE DIR) ; make ge) 
(cd $(PT_ DIR) ; make gen parsers) 
MareugenekactecmcOurces 
make psd] editor 


peal. Cdaietor: ; 
gnatmake -g -o psdl editor $(INCLUDE FLAGS) psdl_editor.adb \ 
~bargs -n $(PARSERS) \ 
-~largs S$ (GE_OBJECTS) 9 (LOCAL OBJECTS) $ (LIBS) 


generated sources: $(GENERATED ADA) $(PARSERS) 
aeelest pkg.adb; at list pkg.g 
gen < a6 ist pkg-.g > tmp 
sca —£ gen.sed tmp > at list pkg.adb 
/bin/rm tmp 


tigiisto pkg. ado: id list pkg.g 
geny= ld )list pkg.g > id list pkg.adb 


Pog Gles ao. s1O Ubi lities.g 
jete st OmMerltehes, gd > LO utilities .adb 


op list pkg.adb: op list pkg.g 
gen < op list _pkg.g > op list pkg.adb 


Semliseaupkg-edb: St Hist pkg.g 
Geteowoeelistepkg.g = st list pkg.adb 
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psdl utilities pkg.adb. psdlvucimeicsme tga 
gen < psdl_ utilities pkg.g > psdl utilities )p.<q.ca. 


analysis pkg.adb: analysis pkg.g 
gen < analysis pkg.g > analysis pkg.adb 


gé Weilities adbe soe utilities .g¢ 
gen < ge utilitiesg = ge ue Peete cmacs 


Gis Generatequcourceas 
ci files -tRCS/dese *.[€gly] *.adlseb]y> (sen vee) 
(cad CCode =, make eu) 


Ci export: generated sourees 
ci files -tRCS/desc *s[Cgly] *.,ad(sb)) S{cSeRuris, 
(ede Ce Codem emake ci) 
sleep 1 
touch, *=.aliey*.o 


edit: all 
cp psdl editor ../CAPS RELEASE. 1227bin 
(cad TEST ; psdl editor test.psdl ; psdi editor autopilot {psam 


clean: 
tm ~.ali, > 20 


- LGNORE: 
# ignore nonzero exit codes below. 


xref: 
gnatf -e -f£ -x6 S(INCLUDE FLAGS) *.ad* 
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——- This is the main procedure of the psdl editor. 
-- It is called from a C main program to enable 
-- the loader to find all the code. 


-- The problem is that gnatbind does not allow multiple 
-- Ada root programs with an Ada main program. 

-- Since we have Ada calling C with calls 

-- back to Ada, and there are no direct links between 
-- the Ada driver at the top and the Ada parsers at the 
-- bottom, the binder needs multiple roots to enable 

-- the loader to find all the Ada modules. 


ee el __ 


procedure psdl editor; 
pragma Export (C, psdl_ editor, "psdl editor"); 
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-- This is the main program of che seeDiger ate: 
-- Usage: 

== psdl_ editor <psdl-inpuc-filenamer 

-- Change: 


Hn KKK KK KKK KKK KKK KkKkKkKkkkkkkekkkkkekkkekkkKekkekkkekekekk kkk kkk KKK KKK KK KKK KkKaKeKKkKKK 


with Ada.Command Line; 

with Ada.Exceptions; use Ada.Exceptions; 

with Text lo, use Texegio, 

with psdl_ editor pkg; use psdl editor pkg; 
procedure psdi editor as 

PSDL file: rileslyee, 


begin 
if Ada.Command_ Line.Argument Count = 1 then 
declare -- right number of arguments, get the file name. 
filename: string := Ada.Command Line.Argument (1); 
begin 
if (filename'length >= 6) and then 
filename (filename'last-4 .. filename'last) = “".psdl" 
then -- File name is ok, open the file and edit it. 
begin 
Open(PSDL File, In File, filename); 
exception 
when name error => 
begin 
-- The file does not exist, try to create one. 
Create (PsP file, Unerile, ets enamel: 
exception 
when others => 
PUT_LINE(STANDARD_ ERROR, 
“"psdl editor: ‘couldn’ t open on crearems 
& filename) ; 
end; 
when others => PUT LINE(STANDARD ERROR, 
“psdl editor. couldn eecpena. 
& filename); 
end; 
-- Got a PSDL file, edit and update it under user control. 
edit _program(PSDL) File —> PSDin fine, 
prototype name => 
filename(1l .. filename'last-—5)); 
else PUT _LINE(STANDARD ERROR, “error: bad file name”); 
PUT_LINE (STANDARD ERROR, 
"usage: psdl editor prototype name.psdl"); 
end if; _ ‘. 
end; 
else 
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PUT LINE(STANDARD ERROR, "“psdl_ editor: 
error, wrong number of arguments"); 
PUT _LINE(STANDARD ERROR, "usage: 
psdl_editor prototype name.psdl"); 
-- begin debugging patch 
EUT LINE (STANDARD ERROR, “using file test.psdl") ; 
declare -- right number of arguments, get the file name. 
filename: string := "test.psdl"; 
begin 
if (filename'length >= 6) and then 
filename (filename'last-4 .. filename'last) = ".psdl" 
then -- File name is ok, open the file and edit it. 
begin 
Speen (PSP File, In File, £ilename) ; 
exception 
when hame error => 
begin 
-- The file does not exist, try to create one. 
Create (PoDiarite, in File, filename) ; 
exception 
when others => 
PUT LINE(STANDARD ERROR, 
Doscimecdreoin, sGOULGN’t Open Or create ™ 
& filename) ; 
end; 
when others => PUT LINE(STANDARD ERROR, 
Bpoabrcdttor: couldn t open 7 
& filename) ; 
end; 


-- Got a PSDL file, edit and update it under user control. 


edEEBprogran\(PoDinbtle => PSDL File, 
prototype name => 
filename(1 .. filename'last-—5)); 


else PUT_LINE(STANDARD ERROR, “error: bad file name"); 
PUT LINE(STANDARD ERROR, "usage: 
psdl editor prototype name.psdl"); 
end if; 
end; 
-- end debugging patch 
end if; 
exception 
when the exception: others => 
PUT LINE(STANDARD ERROR, "Internal error: unexpected exception " 
Exception Name(the_exception) ); 
enc psd editor, 


lik 


& 


ae KKK KKK KKK KKK K KK KKK KKK KKKKEKK 


-— GE UTIEITIES SERCiRieAT Tor 


— KKK KE KKK KEKE KKK KKKKK KK KKK KEKEK 


with psdl_program_pkg; use psdl program pkg; 

with psdl_ component _pkg; use psdl component pkg; ia 
with GE Operator pkg; use GE Operator pkg; 

with st list pkg; use stjlistapka, 

with op_list pkg; use op list pkg; 

with psdl graph_pkg; use psdl_ graph_pkg; 


package ge UbrUrttec mi. 


procedure add_edges (streams: in St List; ops: in Op List; 4g; inoue 
psdl_ graph); 
-- Includes adding edge properties. 


procedure modify child(child: in GE Operator; edges: in St List; 
prototype: in psdl program; 
edited prototype: in eutepsalepregram), 


procedure modify “child Jtype (cp (chad? tneGrn Operate, 
Cdges ernest sulci, 
prototype: in psdl program; 
edited puetorype- 
in out psdl program); 


procedure modify ehald operdtor (child. sinsce Operator, 
edges: in St List; 
prototype: in psdl program; 
ediced PTOLCor pe. 
IMG Psae so EOdguaiie, 


procedure update type operation .names (current_op: 
in composite operator; 
editedsop. 
in out composite operatonm® 
ena ge UeiPrerec, 
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aeeh Unit TiS BODY 


—a eee KK KK KKK Kae Khe Kh kk Keke KhKke kkk kkk a ek 


with 
with 
with 
with 
with 
with 


stream_pkg; use stream pkg; 
psd vconcrete type pkg; 
psdl_ utilities pkg; use psdl_ utilities pkg; 
psecPeiaupkg,; suse psdl id pkg; 

ada_id pkg; use ada_id pkg; 

expression pkg; use expression pkg; 


USeseed'econctece type pkg; 


with 
with 
with 
with 
with 
with 
with 


spec req map pkg; use spec _ req map pkg; 

time unit type pkg; use time unit type pkg; 

property names pkg; use property names pkg; 

‘aelevustepkg; use id list pkg; 

Sp eiMempinnwpmg, use Spline ptr pkg; 

substitution_map_pkg; use substitution map _ pkg; 

vertex _substitution_map pkg; use vertex substitution map _ pkg; 


with 
with 


text 10; 
psdl io; 


Use Cext 10; 
use psdl io; 


backage body ge utilities is 
not found: exception; 
procedure add edge(S: in STREAM; aero Lit 
psdl graph) is 
-- Includes adding edge properties. 
source op, sink_op: GE Operator; 
source, sink op_id; 
Str mepoaleid 7= Coppsdlyid(label(s)); 
lat millisec; 
begin 
tiene ks: Deleted (S),then 
--— find an op id to the sending vertex 
souree := find op id({from(S), ops); 
paeelnc Anwop Td Goethe receiving vertex 
Sink := find op_id({to(S), ops); 


ops: in Op List; g: 


-- create a new edge and assign properties 
lat := Latency(S); 
dm-= addvedge (Source, sink, Str, g, lat); 
SCUMPLOperty (source, Sink, Str, id p, 
Greatem ice gemelreeral (integer (id(S)));, 
SctmprEoperty (source, sink, str, label font p, 
create integer literal (Label Font(S)), g); 
SeUlPpEOperty (scurce, »sink,, stu, Label x offset p, 


g); 


create integer literal (Label | X Offset (S)), g); 
set property(source, sink, str, label Uy Cffset p, 

Sreauemneegcmelitceral (Label Y Offset(s)), gi; 
SGERprOperty\seurce, sink, str, latency font p, 

Create iiieegenertteral (Latency Font (s)), 9): 


SeCPPpEOperey(source, Sink, str, latency unit p, 
Grea-eminceqemmamteral(COuinteger (Latency Unit(S))), 9); 
Sere pEoPperMeyioOutce, sink, Str, latency x offset_p, 


1 


create integer literal (Latency 3yOttsea ed 
set property (source, sink, str, latency serra 
create integer literal latency (ser tse maaan) E, 
set _property(source, sink, Strep ticer, 
create string Jiteral(toleextiere( Siac. 
enceist ; c 
end add edge; 


procedure add edges (streams: in St_List; ops: in Op Lise, 397 ineeum 
Podlegrarn) as 
-- Includes adding edge properties. 


ie St hts te sce Leama 
GUEFeNt edge: STREAM: 
begin 

while not St List Is Null (lL) gee. 
Current edge m=. sah) e 
add_edge(current_edge, ops, g); 
L := Next (Lh); 

end loop; 


end add edges; 


procedure modify child(child: in GE Operator; edges: in St_List; 
prototype: in psdl program; 
edited prototype: in eout psd Pip rogreanimas 
-- Create operator specs for new children and 
-- update operator specs for modified children. 
begin 
if not Ts epeleved(chricymcrcn 
if 15_Cype operation (chic mieien 
modify child type op(child, edges, 
Pretot ype, -editedip-Voroeyperr, 
else modify child operator (eciatd, seages, 
prototype, edited prototype) ; 
end if; 
end if; 
end modify child; 


Procedure modify child type ep(chita: san GEleperarer, edges: in 
Sie wists, 
prototype: in psdi@program, 
edited prototype: Gn out psd! progeam 


is 
-- Create operator specs for new children and 
-~- update operator specs for modified children. 
child vertex: op_id := vertex id(child); 
child name: psdl_id := base name(child vertex); 
child type name: psdilid =: —sehilide verte <a ye emeacmner, 
child type: datatype, 
child type ops: operation map; 
child op: operator; 
exc list. psdl dieser, 
exc rb: spec req map; 

begin 
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child type := fetch(edited prototype, child type name); 
if child type = null component then - 7 
-- The type has not been defined yet, create one. 
Chelan eypes.— Make atomic _type (child name); 
addi (chide type, edited _ prototype); 
enc LL, 
child type ops := operations (child type); 
if (Is _New(child) or Is Modified(child)) or else 
not member(child name, child type ops) 
then 
EOmcKCeptions (Co string(BException List(child)), excolists 
exc rb); 
build psdl_ operator ( 
€ name => child name, 
epamuaiie |—- eto ada id{child name), 
imp lang => Impl _Lang(child), 
Gebare=-seMmptyvecype Geclaration, -— GE does not supply this 
Fleer spee req map pkg.empty, —--GE dodsn’t supply this 
kwr => to psdl_id set (Keyword List(child)), 
Pees es— 7 lirvornal Dese (child)s 
£ dese => Formal Desce(child), 
inp => inputs (Id(child), edges), 
otp => outputs (Id(child), edges), 
st => empty type declaration, 
2 Gxp Map => empty init map, 
exepse—> exc List, 
Semictee eM (child), 


input_rb => spec req map pkg.empty, -- GE does not supply this 
SuEpueEED —=sspec fteq map pkg.empty, —-—- GE dodsn’t supply this 
State tb) —-> spec req map pkg.empty, -- GE does not supply this 


ExXCep rb => exc rb, 

smet_ rb => MET Regmts (child), 

is _atomic aoc LS Composite (child), 

the Beprea-ecnild op); 
bind _operation(child_ mame, Child op, child type ops), 
ScusOpecadtiolsicitla Cype, child type ops); 

CleieelowModaited(child) then 
enlid sop :— feetch(child type ops, child name) ; 
set_name(child_op, child name); 
EO Cxe-pelona(tousehing(hxception List (child)), 
Cx Coie ae Cust, 

feenoc ols Composite (child) then 

set_implementation language(child op, Impl_Lang(child)); 
end, if; 
set_keywords (child op, to _psdl id set(Keyword List (child))); 
Scher tornas _description (child _ op, Informal Desc(child)); 
set _axioms(child op, Formal) Desc (child) ); 
set inputs(child op, inputs (Id(child), edges)); 
SeLPCuLPUES (child op, outputs (Iid(child), edges)); 
set nexceperons (child op, exc listiy 
Seumoveci 11eCemer cil ldap, MET (child)); 
Seqmspectecamcem@red= (chitldeop, ME! Reqmcs (child) ); 
Seteczceprion reqs(chiltd op, exemrb) ; 

else 
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child op := fetch(child type ops; child name); 
set_inputs(child op, inputs(Id(child), edges) ); 
set outputs(child op, outputs(Id(child), edges)); 
end if; 
end modify child type op; 


procedure modify child _operator(child: in GE Operator; 
Gqdges - ine sc guao ey 
prototype: in psdl program; 
ecl led TD LOL Ot Vbe adam ola 
psdl program) is 
-- Create operator specs for new children and 
-- update operator specs for modified children. 
child name: psdl_id := name(child); 
child op: seperaror, 
exc list: psdl tdlset, 
exe EDs spec req map, 
begin 
if Is New(child) then 
tCo_exceptions (to string ( Except tone brome er ae 
exc list, (exeuroye, 
build psdl_ operator ( 
c name => child name, 
G 4 name => Eovada lid (eh ldgmane 
imp) Vang => Impl Lang (charley: 
G par => empty eeyp- deel aracren, -- GE does not supply this 
gen par rb => spec req map pkg.empty, --GE doesn’t supply thas 
Kwr =>eto psdlerdyset (Keyword Lilseieumlain 
iidese —-sintormabepeseuenilan:, 
£ dese —- formal vese venice, 
inp => inputs (Id(child), edges), 
otp => outputs (Id(child), edges), 
st => empty type declaracron, 
I exp Map ss enpty aimee: 
excps => exc list, 
s met => MET(child), 


input rb => spec req map pkg.empty, -— GE does notysupply ea. 
output rb => spec req map pkg.empty, —— GE doesn’t supply eth. 
state rb => spec req map pkg.empty, —— GE does not supply Chis 


GXCED) EDla- e <Cmmaor 

smet rb => MET Reqmts(child), 

is_atomic => not Is Composite(child), 

ISev= eyepg =e elgsLdlis. eyoy)) 5 
add(child_ op, edited prototype) ; 

elsif Is (ModtFtred( eid) seehen 
assign(child_op, find(suffix(child name), prototype)); 
-- Find the old operator based onmehiemoo: alum, 
-- the name may have changed. 
-- Use assign to make a copy so recycle will be safe. 
set_name(child op, child name) ; 
Co_exceptions (to _string(Exception List(child)), 
exc list, exe rb)R, 
if not Is Composite(child) then 
set_implementation_language(child op, Impl Lang(child)); 
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engl i; 
set_keywords(child_op, to_psdl_ id set(Keyword List(child))); 
set_informal_description(child_ op, Informal Desc(child) ); 
set_axioms (child op, Formal Desc(child)); 
set inputs (child op, inputs(Id(child), edges) ); 
ScemoOulLpMEctchiwld Op, Outputs (Id(child), edges) ); 
Se emexceperons (ch !d Op, excolist)y 
Sei@opeeterca mec cha ld Op, MET (child) ); 
Sec espectered met reqs (child op, MET Reqmts (child) ); 
Betpexceperon reqs (child@mop, exc rb); 
add(child_op, edited prototype); 
else 
dssiqnichtidsop, find(suffix(child name), prototype)); 
-- Use assign to make a copy so recycle will be safe. 
set name(child_op, child_name); 
seC anputs(chald op, ianputs(Id(child), edges)); 
SSemouleMeo( Cillanop,oucputs (Id(child), edges) ); 
-- The inputs and outputs are derived from the graph, 
-- so they could have changed 
-- even if the explicit attributes of the child did not. 
aocnenwlaeop, edited prototype) ; 
end if; 
end modify child operator; 


Pimectlonetand edge(edge id: expression; cg: psdl graph) return edge 
is 
Sec express iON, 


begin 
EOEEermedgeu IT Meage sec pkg.scan(edges(cg)) loop 
eelame scrap Eoperlevic.soOurce, €.sink, €.stream name, 
id_p, cg); 
Soc (omc mecage 1d) then return e, end if; 
end loop; 


raise not_found; 
endelind edage; 


—-— will not work if different arcs of the same 

-- stream are renamed in different ways. 

Rinectronemake Lenaming(cg, eg: psdl graph) return substitution map is 
edge id: expression; 
SErgina ledge: edge, 


result: substitution map := empty; 
begin 
ieee. scAde li cage set pkg.scan(edges(eg)) loop 
edge id := get property(e.source, e.sink, e.stream_name, 
id_p, eg); 
begin 
Pmrganaleedades.— find cdge (edge id, <q) ; 
exception 
WiehwnioOwerounds == Original edge += é; 
end; 
bind(original edge.stream name, e.stream_ name, result); 
end loop; 


return result; 


121 


end make renaming; 


procedure update type operation names{currentvep: in 
composite operator; 
edited Op een our 
composite operator) is 
cg: psdl graph := graph(current_op); 
eg: psdl graph := graph(edited op); 


id_renaming: substitution_map := make renaming(cg, eg); 
vertex renaming: vertex substitution map := empty; 
new name: op id; 

begin 


for v: op id in op id set pkg.scan(vertices(eg)) loop 
if 1s €ype op (visiEnen 


new name := transform_vertex(v, id renaming) ; 
bind(v, new_name, vertex renaming) ; 
end if; 
end loop; 


rename Vertices{edited op, vertexe@rcnomimger, 
end update type operation names; 


end 9@ Uli eres, 
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Seo oe LET tho PRG SPECIFICATION 


ee a ea ee ea eee keke ee 


with psdl_program_pkg; use psdl program pkg; 
with psdl_component_pkg; use psdl_ component pkg; 
with psdl_graph_pkg; use psdl_graph_pkg; 7 
with psdl_concrete_ type pkg; use psdl concrete type pkg; 
Watch psal 1d pkg, use psdl id pkg; 

with expression_pkg; use expression _pkg; 

With ot List pkg; use St List pkg; 

with spec_req map_pkg; use spec req map _ pkg; 
Veriege Optic pkg, Use ge op id pkg; 

with C_Boolean_pkg; use C_Boolean_pkg; 

with c_string pkg; use c_string pkg; 


-- The following are needed in the body 

-- but can't go there because of gen. 

with Ada.characters.handling; use Ada.characters.handling; 

with Ada.strings; use Ada.strings; 

with Ada.strings.fixed; use Ada.strings. fixed; 

with Ada.strings.maps; use Ada.strings.maps; 

with Ada.strings.maps.constants; use Ada.strings.maps.constants; 


package FDL Utilities Pkg is 


Mieeronejecers cterminator(op name: psdl id; parent: operator) “return 
boolean; 
~- returns true if the named operator is a terminator bubble 
~~ in the graph of the parent operator. 
~~ If there are several nodes with the given operator name, 
-- uses the properties of the first one it finds. 


PitecEtoneExt tract tare Ids(e 2 anepsdl~component) return psdl id set; 
BeecPMonomrile ssoLeOorupsdinids whichware names of state streams 
declared in the spec 
-~ of the operator 


PmMcehomrncleack Implementataon dic; ain psd component) return Text; 
-~- returns the implementation id of the atomic operator, 
~- e.g. Ada, TAE, C, etc 


tice honweetebacemvertex !ds(c: in psdl component) return op_id_ set; 
function Extract Period Reqmts Ids(name : in op_id; 
Cet eo Leeomponent) 
FeluEnepscaatc set, 
function Extract FW _Reqmts Ids(name : in op_ id; 
c : in psdl_ component) 


Precurn psal tciset, 


function Extract MRT Reqmts Ids(name : in op id; 
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c : in psdl component} 
return psdligid set; 


function ExtractyMCP Reqmts ds(name “eine oomucr, 
c : in psdl_ component) 
return psdl_ id set; . 


function Extract Trigger Reqmts Tadsiname aetn soomae, 
c 3; in psdl_ component) 
return ped elcdmece, 


function Extract Edge Set(¢ec: in psdlvconponene)  eeerenmcagemscru, 


function Get _PSDL_O GENERICS Text(c : in psdl_ component) returmm) Teme: 
-- the output string consists of all generic parameter declarations 
-- in the spec of the operator c 


function Get Psdl Types Text (prog > 2h psdleprodram) = returae 1c. = 
-- prog is a psdl program that Ccentains jonly user-derinadenypes 


function Get Op Spec Text(o = An operators eceurnatexm, 
-- gets the specification of the operator as a text string. 


function Get Express Tommi extre >; im expression) return Text; 
~~ white characters are not allowed in the output 
-- string except when they 
-- are blanks inside a string literal, i.e. 
-- between two matching quotes 


function Get Psdi Id Sequence Text(s <; 1n)psdlalsequence) @rcemra 
Ste, 
-- the output string consists of a sequence of 
-- non-white characters which 
-- correspons to a list of ids separated by commas 


function Gét OUULpUL Guards sTexe(name {8am Opera oer 
psdl component) return text; 
-- the output string consists of all 
-- the output guards and requirements 
-- traces associated with the vertex "name" 
== in the control constraint of ¢ 


function Get Exception Trigqgers Text (name): iso cye er 
psdl component) 
EFCEUEN Gere, 
-- the output string consists of all the 
-- exception triggers and requirements 
-- traces associated with the vertex 
-- “name" in the control constraint of c 


function Get_Exception_List Text(name : in op id; 


G >; in psdl component) 
ECCUL text 
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POnWeelonmccty timer Operations Text(name : in op id; c : in 


psdl_ component) 


return text; 

—=- the output string consists of all the timer 
-- operations and requirements 

-- traces associated with the vertex "name" 

-- in the control constraint of c 


PiGclOlmoccemlyoo Nance Text(name ; in type name) return text; 
—— the output string represents the type name as 
-- a sequence of non-white characters 


procedure separate types(prototype: in psdl program; 
root_name: in psdl id; 
types: in out psdl program); 
-- Separates the operators from the types. 


procedure CrealLesFOOl Name (prototype name: alc) -s)Sigaly aXe pe 
prototype: in out psdl program; 
BOOE name: Cut pSsdigeiad) ; 
-- Produces the name of the root node if there is one, 
-- otherwise constructs one from the prototype name 
—-- and creates a corresponding root node. 


Peocedure check Ssurfilxes (prototype: in out psdl program); 
-- Check for suffixes and generates them if not there. 


function to _psdl_ id set(s: psdl_ id sequence) return psdl_id_set; 
-- converts the sequence to a set. 


binceaon COntype Name(s: c string) return type name; 
Seeconvctes the String to a psdl type name. 


Pinecttonscouop ld(label: text) return op id; 
peeOuVve res menc label and suffixes to a psdl op id. 


function to expression(s: ¢c string) return expression; 
—-—- converts the string to a psdl expression. 


Lite eholmeEOmOperacOr(spee: text) return operator; 
-- returns an atomic operator with the given name 


-- and psdl specification. 


Peoeeditne stomexceDitoOno (sssin string; exc list: out psdl_ id set; 
ee ED OucG spec req Map); 


procedure to_out_guard map(s: in string; og: out out_guard map; 
ogrb: out spec req map); 


Procedure to exception guard map(isi: string; 
eg: out excep trigger map; 


egrb: out spec req map); 


procedure to timer op set(s: in string; timer op: out timer _op set; 
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resetrb, StarcEeb, stopen. 
in Out Spec seq Napiy 


procedure add_output guards (id = an op id, 

og : in out guard map; 

Oo guard: in out out_guard_map) ;° 
procedure add exception gquards (ld: s1nwopee a, 

eg ; in excep Erigqger snap, 


e guard: in out excep trigger map); 


end PSDL Utilities iekg, 
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Zee LLL TBS ERG BODY 
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with raw_text file pkg; use raw text file pkg; 
Pee cextG io, use CexXt 10; - — 
WHEhetoeutilities; use io utilities; 

with psdl io; use psdl_ io; 

with expression io; use expression _io; 

with type name_1o0; use type name io; 

Vicon mia 10, USe Op id io; 

with output_guard_io; use output guard io; 
with exception _guard_io; use exception guard io; 
Rarciee.cepeElon ao, WSe exception io; a 
with timer_op guard_io; use timer op guard io; 


with Unique Id Pkg; use Unique Id Pkg; 

with property names_pkg; use property names _ pkg; 

with cc_req map pkg; use cc_ req map pkg; 

with substitution _map pkg; use substitution map pkg; 

with vertex substitution_map pkg; use vertex_substitution map pkg; 


Peerage body PSDL Utilities Pkg is 


Mgeetonegecets scerminatorlop name: psdl id; parent: operator) return 
boolean is 
-- returns true if the named operator is a terminator bubble 
-- in the graph of the parent operator. 
-~- If there are several nodes with the given operator name, 
-- uses the properties’ of the first one it finds... 
g: psdl_ graph; 
begin 
g := graph(parent) ; 
-- Find the graph vertex corresponding to the given operator name. 
tigen cpelasimeop tJangset pkg.scan(vertices(g)) loop 
iineq\baseuname(v), Op name) then -- found it. 
relLUuraeeq (dee property(v, is terminator p, 9g), 
true expression) ; 
end if; 
end loop; 
-- Should never get here. 
Ppucetine (standard verror, “get is terminator: node name 
& convert (op _name) ); 


Pumuiietotanddnmaeerror, § not found in the graph of © 
& convert (name(parent))); 
return false; 
exception 


when others => 
PUuEBMIine (standaea error, 
Jem omremniinaton: Unexpected exception” );7 
return false; 
end get_is terminator; 
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function Extract Input Ids(c : in psdl_ component) return psdl id set 
is 
-- returns the set of psdllids whitch areugamecuc: 1 fietesc rec (mae 
the operator 
Input Lds =< pschetauser, 


td = type deelaracion. 2 
begin 
td := inputs(e)-; 


assign(input_ids, map domain(td)); 
return input ids; 
end Bxtracteinput gids, 


function Extract Output Ids(ec : in psdl Component) return psd! idgcee 
is 
-- returns the set of psdllids whieh ware gamesec cs ourouc 
-- streams to the operator 
OuUEpUE ids ; psd tcisce, 
td: type declararvon, 
begin 
td := outputs(c); 
assign(output_ids, map domain(td)); 
return output ids; 
end BxXtract Outputr ids, 


function Bxtract State Ids(c = in psdl component)  rcturn psoteramso 
is 
-- returns the SeG ,0of psd ids whsten jaeeenames Or seaee 
-- streams declared in the spec 
-- of the operator 


State ids 3 psdeecmset, 

td < type cdeclaraeren, 
begin 

td := states(c); 


assign(state ids, map domain(td)); 
return Stace aide, 
end Extract State Ids; 


function Extract Input Reqmts Tds (name aime pscdiaeuc, 
¢c : in psdl component) 
return psdlvid sSetris - 
-- returns the set of regqmts associated with the name 
-- input stream of the operator 
Ea : psdl ta sequence,; 
input reqmts ids™: psdlerdusce, 
begin 
td := input _reqs(c, name); 
return CtCojpsalwidysee cans 
end Extract_Input_Reqmts Ids; 


function Extract_Output Reqmts Ids(name : in psdl_id; 
c : in psdl component) 
return pedini@descrers 7 
--returns the set of reqmts associated with 
--the name output stream of the operator 
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Edius Ppsdl td Sequence; 
begin 
tad ws—=sOuLPUE reqs (ec, name) ; 
Eerllmimeo nose! 1d set (Cd) ; 
ena Extract Output Reqmts Ids; 


function Extract_State_Reqmts Ids(name : in psdl _ id; 
c : in psdl component) 
return psdl_ id set is - 
-- returns the set of reqmts associated with the name 
-- state stream of the operator 
Pe psc etd) sequence; 
begin 
td :—= state reqs(c, name) ; 
BeEwEnecoupsdl 3d set (td) ; 
end Extract State Reqmts Ids; 


function Extract Exception Reqmts Ids(name : in psdl_ id; 
ee in psd component) 
return psdl id set is 
-- returns the set of reqmts associated with the name 
-- exception of the operator 
Polosd)! td sequence; 
begin 
Emo wexceDeTon reqs(c, name) ; 
Polar cOnpsdl cd set (td) ; 
end Extract Exception Reqmts Ids; 


DuMeteron Extract Met Reqmts Ids{c +: in psdl component) return 
pealiid set is 
td; psdl id sequence; 
begin 
td :;= specified maximum execution time reqs(c); 
Becurn to psdleid set(tad) ; 
SWaeext hace Met Reqmts Ids; 


PUnCerOneExLLact implementation Id{(c: in psd! component) return Text 
is 
-- returns the implementation id of the 
——- atomic operator, e.g. Ada, TAE, C, etc 
begin 
return to text(implementation language(c)); 
end Extract Implementation Id; 


function Extract Vertex Ids(c: in psdl_ component) return op_id set is 
begin 

return vertices(graph(c)); 
endebxt race Vertex tds, 


Pune lOnmererace page sce (Cc: in psdl component) return edge set is 
begin 

return edges (graph(c) ); 
end Extract Edge Set; 
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function Extract Period Regqmts | Tds(trameu merase: omar 
€ : an psd! componer: 
retiinn psdiyice> ected. 


period reqmts ids : psdl id sequence; 
begin 
period reqmts ads := fetch (period reqs mapiie i jyascamas, : 


return to psdiimidl set(perrodereqmucmiaa il, 
end Extract Period Reqmts Ids; 


Function Extract PW Reqmts tds (name). ein op td, 
c : in psdl_ component) 
return psd! ad seers 
fw _reqmts ids : psdl_id sequence; 
begin 
fw reqmts ids := feteh( finish within reqsmmaciei nan es, 
return te psd idlsem (ey eeeqneomcs i. 
end Extract FW _Reqmts Ids; 


function Extract _MCP Regqmts Ids(name : in op id; 


c : in psdl_ component) 
return psdi=idyseteis 
MGpVEECQMts Sidss psa l taesequence, 
begin 
mcp reqmts ids := fetch(minimum_ calling period reqs map(c), name); 


return to_psdl id set(mep reqmts ide); 
end Extract Mer -Reqmtseids, 


function Extract MRE Reqmts Ids (name tn Opera: 


c : in psdl_component) 
EecCuLM psd! =cie-- cms 
MEt. reqmts dss poate tanscavence, 
begin 
mrt _reqmts ids := fetch(maximum response time _ reqs map(c), name); 


return to psdl id set(mrt_reqmts ids); 
end Extract MRT Reqmts Ids; 


function Extract Trigger Reqmts (Ids({name; sin sopsta, 
© : in psdl componeit} 
Feturn psd haiagscesas 
Crigger reqmts ids); psdlerd sequanec, 
begin 
trigger _reqmts ids := fetch(execution_ guard reqs map(c), name); 
return to psdl id set(trigger reqmts ids); 
end Extract Trigger Reqmts Ids; 


function Get PSDL_O GENERICS Text(c : in psdl component) return) few 


-- the output string consists of all generic parameter declarations 
-~- in the spec of the operator c 
begin 
-- not finished, probably not needed. 
return empty; 
end Get_PSDL_O GENERICS Text; 
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function Get Expression Text(e : in expression) return Text is 


-- white characters are not allowed in the output 
—-- string except when they 
-- are blanks inside a string literal, i.e. 
-- between two matching quotes 
ieee, cext tile; 
iieis scaw text file; 
result: text; 

begin 
—-- Write the expression to a temporary file 
Petpocanyerext sFave(out f£); 
SeEROuLpuE(oUut £); 
put expression (e); 
Set Output(Standard Output); 
Close(out_f); 


—— Read it in as a text string from the temporary file 
Eeponany taw text file{in f£) ; 
result := get(in f); 
Gawecextertlesprg.Delete(in f£); 
Bemove plast yenar (result) ; 
return result; 
exception 
when others => 


PUT LINE(STANDARD ERROR, “Get Expression Text: io error"); 


BSE rm Empey; 
enoscee Expression Text; 


PedewroimeGcet rsd tad Sequence Text(s : in psdl id sequence) 
Text is 
See enesOUuLDUG steLing Consists of a 
—-- sequence of non-white characters which 
-- correspons to a list of ids separated by commas 
Oueri. tCext file; 
Pie sraw text £ile; 
result: text; 
begin 
-- Write the id sequence to a temporary file 
Pemporanverext scl le (out £); 
SeEVOUEput(out £); 
put_id_seq(s); 
Set Output (Standard Output); 
PlOse(OUERE), 


-- Read it in as a text string from the temporary file 
Pemporary raw texturile(in £); 

persue a Geran of) 7 

Hemovewlaselchar (resule); 

maVmee wer Eile soKg. Delete(in ff) ; 

return result; 
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return 


exception 
when others => 
PUT LINE(STANDARD ERROR, “Error; bad trle name... 
return result; 
end Get Psdl Id Sequence Text; 


function Get Output Guards Text (name Sop Fd) ace. tn 
psdl component) return text is 
-- the output string consists of 
-- all the output guards and requirements 
-- traces associated with the vertex 
-- "name" in the control constraint 
==) On “Cc 
CUG £: text file; 
im fs rawotext file, 
result: text; 
begin 
-- Write the id sequence to a temporary file 
temporary texteti le(oute es) 7 
set Output (oucmia:: 
put output _guard(name, c); 
Set Output (Standard Output) ; 
Close(out f); 


-- Read it in as a text string from the temporary file 
temporary raw text file(in f); 
result *— Get iiueny 
remove lastlchan( result r, 
raw text fillegpkg. Desiete (amt), 
return result; 
exception 
when others => 
PUT LINE(STANDARD ERROR, "error: bad file name"); 
return result; 
end Get OUtCpUCyGUuardse lex, 


function Get Exception Triggers Téxe (name. snopes 1c Geen 
psdl component) return text is 
-- the output string consists of all the 
-- exception triggers and requirements 
-- traces associated with the vertex 
--"name"™ in the control constraint 
ote 
Que DE: “Eext perc, 
in £: Eaw Céxteer le. 
result. tere, 
begin 
-- Write the id sequence to a temporary file 
temporary text) file (our tr 
Set Output (out f); 
put_excep trigger(name, Cc); 
Set Output (Standard Output) ; 
Close (outa 
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-- Read it in as a text string from the temporary file 
Eetporanyebaw text fille(in f) ; 
result := get(in f); 
PetioOwemraceciat (result) ; 
Eaveeememetiestng-Delete(in f£); 
return result; 
exception 
when others => 
PUT LINE(STANDARD ERROR, “error: bad file name") ; 
return result; 
end Get Exception Triggers Text; 


Since teonncet Exceptron List Text(name : in op id; c : in 
psdl component) return text is - 
-- the output string consists of all the 
-- exception triggers and requirements 
-- traces associated with the vertex 
-- "name" in the control constraint 
Oh, Cc 
Sui texterile,; 
ie cane cextme le; 
result: text; 
begin 
-- Write the id sequence to a temporary file 
eemporary text file{out f); 
Setsoucpur {out £); 
PuEmiamsel (exCeptelons(c), “EXCEPTIONS”, exception reqs map(c)); 
Set Output (Standard Output); 
Close (out £) ; 


-- Read it in as a text string from the temporary file 
Eemporary raw text file{in f); 
Sect: =—eget(in £); 
Bavgeextrinlerpkg.Delete({in f£); 
Pemove last (ehar (result) ; 
return result; 
exception 
when others => 
PUT LINE(STANDARD ERROR, “error: bad file name"); 
return result; 
Sacmcee, Exception List Text; 


PUNCElOneGct liner Operattonsmkext (name : in op id; 
Ge LD psa componente) 
return text 1s 
-- the output string consists of all the 
-- timer operations and requirements 
-- traces associated with the vertex "name" 
=-— 1 ehe Control constraint 
-—- of c 
CUceGe CORC ETE, 
Pie fae GaW eect ELLe; 
result: text; 
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begin 
-- Write the id sequence to a temporary file 
temporary text gamle (out i), 
Set Output (out f); 
put timer op(name, c); 
Set Output (Standard Output); ja 
Close(out_f); 


-- Read it in as a text string from the temporary file 
temporary raw text file(in f); 
result == G¢tipiee), 
remove last Jena mes Uheya, 
raw text file pkog.Delere (tie), 
return result; 
exception 
when others => 
PUT LINE(STANDARD ERROR, “error: bad file name"); 
return result; 
end Get Timer Operations Rex, 


function Get Type Name Text (name < in type name) renee 
=- the Outpur String~ represents hewn ype aman 
-- aS a sequence of non-white characters 
OUE £: tener rle, 
inci: Lawleext Uf isker 
result: text; 
begin 
-- Write the id sequence to a temporary file 
temporary (texture levouur i), 
Sét OuUEDUL (Cum), 
put _ type name(name); 
set OUCDUL{ Standards eutput); 
Close{ouume:, 


-- Read it in as a text string from the temporary file 
EempOrary TraWweGext tile (inet a, 
result := get({in f); 
remove lastechamuecs uw sein 
raw Eext Erle pkg petere (tmnt ):, 
return result; 
exception 
when others => 
PUT LINE(STANDARD ERROR, “error: bad file name"); 
return result; 
end Get Type Name Text; 


function Get Op Spec Text(o + im operator mirccutn hex 
-- gets the specification of the operator as a text string. 
Gut GE Gex Cee erc 
in f: raw text file; 
result: text; 
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begin 
—-— Write the id sequence to a temporary file 
Bemporanyecext file (out f) ; 
SeGROUEPUE(OUG. £); 
put component spec(o); 
set Output (Standard Output) ; 
close (Out £) 7 


== Read i€ in as a text string from the temporary file 
temporary raw text _file(in f); 
peculey = — gee (in 1); 
remove last char(result); 
Eiwetext stile pokg.Delete(in f£); 
return result; 
exception 
when others => 
PUT LINE(STANDARD ERROR, "error: bad file name"); 
return result; 
sce Get Op speemlext; 


PMiGeeLoneGecetrcale types  Text({prog =: in psdl program) return Text is 


=— prog is a psdl program that contains only user-defined types 
Sum exc tile; 
Piero raw text file; 
result: text; 
begin 
-- Write the id sequence to a temporary file 
Bemporany text tile(out £); 
See Output (out £); 
put(out _f, prog); 
Set Output (Standard Output) ; 
Close(out_f); 


-- Read it in as a text string from the temporary file 
Pempordny cawetext File (iin £); 
Pesiee is — Gee qin r) > 
Eenove Lasteehar (result); 
maWwecext Livegpukg. Delete (in f); 
return result; 
exception 
when others => 
PUT LINE(STANDARD ERROR, “error: bad file name"); 
return result; 
eiemGceGursd Meh yess Lext . 


procedure separate types(prototype: in psdl program; root_name: in 
psdl id; 
types: in out psdl program) is 
-- Separates the operators from the types. 
procedure bind(name: in psdl_ id; module: in psdl_component, 
program: in out psdl_ program) 
renames psdl program _ map pkg.bind; 
-- Make sure we use the internal bind operation. 
-- Means ops and types do not have valid parent pointers, 
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== and that getudefinieion wi nor 
-~- work for data type operations. 
begin 
for id : psdivid, c : psd! componente in 
psdl program _map pkg.scan(prototype) loop 


if component category(c) = psdl type then “ 
bind(id,. G, evpes 
end if; 
end loop; 


end separate types; 


procedure create root name{protcotype Namie: si necerang, 

prototype: in out psdl program; 
root name: out psdl id) is 

-- Produces the name of the root node if there is one, 

-- otherwise constructs one from the prototype name 

-- and creates a corresponding root node. 

obsolete roots: id sets = tdesctrpkd.cmpey, 

root, Op: Operator, 

old root name: psdl id; 


beqin 
root name := find root (prototype); 
begin -- check root name 
if prefix(root_name) /= prototype name then 
root nhame := convert (prototype name, Get Unique mid 
root := fetch(prototype, root name); 
set _name(root, root name); 
end if; 
exception 
when GCoOnstraint error => =~ The FrOOtCHdoes moet 
-- have an op num suffix. 
root name := convert (prototype name, Get Unique Id); 
root := fetch(prototype, root name); 
set name(root, root_name) ; 
end; 
exception 
When nO roote=- 
root name := convert (prototype name, Get Unique Id); - 
root := make composite operator (root name); 


addi Beet, procotype) 
when multiple roots => 
root name := convert(prototype name, Get Unique Id); 
old root name := to psdl id(prototype name), 
root := fetch(prototype, old root name); 
if root = null component then root := 
make composite operator (root_name); 
else Setmmame (200u, root_name) ; 
end if; 
for id : psdl_ id, c : psdl component in 
psdl program map pkg.scan(prototype) loop 


if component _category(c) = psdl operator and 
parent(c) — null componenemenen 
id _ set pkg.add(id, obsolete roots); 
Op := Cc; 
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ae Lecyele (op) ; 
end if; 
end Loop; 
remove (obsolete roots, prototype) ; 
add(root, prototype); 
ende create Lrootename; 


function make vertex renaming(g: psdl_ graph; 
renaming: in substitution map) 
PeriiimeveLtex substitution map is 
Pests eVvereex  SUUStzEULION Map :— empty; 
op num: ge op id; 
heweae psdl 1d; 
new vertex: op id; 
begin 
Poel ean vektex Op id in op id set pkg.scan(vertices(g)) loop 
iPMnioemed cntidevertex, external) then 
get member (child vertex.operation_name, renaming) then 
= Ne vneveyanvold style vertex, the op id operation name 
paeicdecies the psdlyid in the original definition. 
Rewavertex <= Child vertex; 
-- get the renamed operation name. 
new id := fetch(renaming, child vertex.operation_ name); 
ae adanthes V num, 
Spaenumengege Op id(Get Unique Id); 
new_id := to _psdl id(to_text(new_id), op_num); 
-~ install the transformed operation name. 
new vertex.operation name := new_id; 
Denaventlicdivertex, new vertex, result); 
elsif 
member(to psdl id(prefix(child vertex.operation_name) ), 
renaming) then 
-- Somehow, we got a new-style graph 
—-- with vertex numbers but 
-- an old-style operator definition without op_num's. 
Newavetncen -= enlld vertex; 
-- get the renamed operation name. 
Hevea, sretch (renaming, 
to_psdl id(prefix(child_vertex.operation_name))); 
-- add the v_num. 
op num := suffix(child_vertex.operation_name) ; 
new_id := to _psdl_id(to text(new_1d}), op_num); 
-- install the transformed operation name. 
new vertex.operation name := new_id; 
bind(child vertex, new_vertex, result); 
end if; 
end if; 
end loop; 
return result; 
end make vertex renaming; 


function member(id: psdl_id; vertices: op_id_set) return boolean is 


begin 
for oid: op_id in op id set_pkg.scan(vertices) loop 
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if eq(oid.operation name,” 1c)) then feta eine encaa a, 
end loop; 
return false; 
end member; 


procedure check suffixes (prototype: in out psdl program) is- 
op num: ge_op_ id; 
old id, new_id: psdl id; 


renaming: substitution map := empty; 

CO? COMpoSteemoperacon, 

result: psdl_ program := empty psdl program; 
begin 


-- Find the bad names, generate names with suffixes, construct a 
renaming map, 

—--— change the names of the components, and bind them into the 
result map. 

for id : psdl id, ~c : psd component ein 
psdl_program_map_pkg.scan(prototype) loop 


if component category(c) = psdill operator then 
begin 
ola ida >= name(c); 
Oop _num :;= suffix(old td)j> 


-~ If this works the suffix exists. 
if parent(c) /= null _ component and then 
member(old id, vertices (graph (parent (c) ) )) 
then 
-- We have an old-style graph and definition, which happened 
-- to have a numeric suffix. To prevent the original numeric suffix 
-- from disappearing from sight, we add another invisble suffix. 


loop 
Op NUM s:= ge op jd(GetlUniqucriaie, 
new id := to psdi idito text (old mild) sopsauini:, 
exit when not member inews1cd,2est bee 

end loop; 


set _name(c, new id); 
add(c, result); 
bind(old id, new_id, renaming); 
else add(c, result); 
end if; 
exception 
when constraint error => 
-~ The component does not have an op num suffix. 
-- We need to create and install a suffix. 


loop 
op num := ge op sid (Geteunigqueriay:, 
new 1d := to psdl idi(te text (oldtid)) openun):, 
exit when not member (new _ id, result); 

end loop; 


set_name(c, new id); 
add(c, result); 
bind(old id, new_id, renaming) ; 
end; 
else add(c, result); 
end if; 
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end loop; 
-- Now apply the renaming substitution to 
-- the graphs and control constriants 
-- of all the composite operators in the result map. 
fon sid = pedl id, ¢ : psdl component in 
psdl program map pkg.scan(result) loop 


if component _category(c) = psdl operator and then 
component granularity(c) = composite 
ENehcO °= C; 


rename_vertices(co, make_vertex renaming(graph(co), 
renaming) ); 
end 15; 
end loop; 
assign(prototype, result); 
end check suffixes; 


Piece ronmtoupsale1cd set{(s: psd] id sequence) return psdl id set is 
—-- converts the sequence to a set. 
Poottewepsdl 1dgset := empty; 
begin 
for 1d: psdl id in psdl id sequence pkg.scan(s) loop 
adatid,, result) ; 
end loop; 
return result; 
ence psdlsid set; 


fucitony £ind name(op spec: text) return psdl id is 


Sees ring: LO String(op spec) ; 
len: natural := length(op spec); 
aad char set: character set := Alphanumeric _set or To Set(" '); 
fiese, Last: natural; 
begin 


Podemnhoken(Strmeiaschar set, inside, first, last); 
-- OPERATOR keyword 


Pinc@eLoren (ser (lastrl —~. len), id char set, inside, first, last)y 
-- The name 
BouwrieLo poalwicaihead(str(first .. last), 1 + last — First));> 


end find name; 


ivieriomecOmoperacOr(spec: text) return operator is 
-- returns an atomic operator with the given name and psdl 
specification. 
Peek fi be; 
prog : psdl program; 
mame: psdl id := find name(spec); 
begin 
Eemporatyerestarile( i); 
Puce, co string (Spec) ) ; 
newline (if); 
put_line(f, “IMPLEMENTATION ADA " & to _string(name) & " END"); 
reset (f, input); 
goer Prog ls, 
delete(f); 
necurn tetch (prog, E1nd root (prog) ) ; 
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exception 
when others => 
PUT LINE(STANDARD_ERROR, "to operator: I/O error"); 
return make atomic operator (name) ; 
end to_operator, 


function to type@name(s: C String) @rcturneevpe ame. = 
-~ converts the St©ing@co wa psdleeyvpe Wane. 
fi textes. be, 
result: type name; 
begin 
temporary text file(f); 
put(f, value(s)); 
reset(f, input); 
get(f, result); 
delete(f£); 
return result; 
exception 
when others => 
PUT LINE(STANDARD ERROR, "to type name: I/O error"); 
return null type; 
end to type name; 


function to op ad(Tabell: text) recur sooe dais 
== COnVerts the string Eo a -psdilicomiae 
fs) ext eee, 
result: op id; 
begin 
== CONnVErE Ciewlabel te sane orc 
temporary text file(f); 
PUuE(E, Eo SEE mG Eaber ay, 
reset(f, input); 
get(f, result); 
delete(f); 
return result; 
exception 
when others => 
PUT LINE(STANDARD ERROR, “to op id: I/O error”); 
return empty; 
end to op id; 


function is blank(s: string) return boolean is 
begin 
for iin s‘'range loop 
if not is Control (Sti)) Ehen reCirnesals-,scha.re, 
end loop; 
return true; 
end is_ blank; 


function to _expression(s: c string) return expression ds 
-- converts the string to a psdl expression. 
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feces cre, 
result: expression; 
str: string := value(s); 
begin 
if is blank(str) then return undefined expression; end if; 
Gempordiay text efi le(f) ; — 
PpuEi it, str); 
reset(f, input); 
get(f, result); 
delete(f); 
return result; 
exception 
when others => 
PUT LINE(STANDARD ERROR, "to expression: I/O error"); 
return undefined expression; | 
end to expression; 


mpeeceaure to exceptions(s: in string; exc list: out psdl id set; 
exe yrb>. Out spec req map) is 
f: text file; . 
begin 
Eemporaryacext file f) ; 
EMtCt, S)> 
reset(f, input); 
ett, exe List, exc rb); 
delete (f); 
exception 
when others => 
PUT_LINE(STANDARD ERROR, "to exceptions: I/O error"); 
exeeelistec— eNpcy; 
excel. CMDLY, 
endo exceptions; 


EECceaure tO OCULgGuard map(S: in string; og: out out_guard map; 
ogrb: out spec _ req map) is 
femeext file; 
begin 
remporary text File (ft); 
PuE(E, Ss); 
reset (tf, input) > 
get Vl og, Ogirb) ; 
delete(f); 
exception 
when others => 
PUT LINE(STANDARD ERROR, "to out guard map: I/O error"); 
og ;= empty out guard map; 
ogrb := empty; 
end to_out_guard_map; 


Procedure tovexception guard map(s: string; eg: out excep trigger map; 
egrb: out spec req map) is 
foeeGCxGrr Le, 
begin 
Eenpordhy cexterilhe(t); 
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put (£795); 
reset(f, input); 
get(f, eg, egrb); 


delete(f); 
exception 
when others => “ 
PUT LINE(STANDARD ERROR, “to exception guard map: I/O error"); 
eg™:— enpeyee<cep ellggemamuap, 


egrb := empty; 
end to exception guard map; 


procedure to timer op set(s: in String; timer Op: CCUG Eimer foome os 
resetrb, startrb, stoprb: 
in Out Spec neq map) us 
£7 Cex fale, 
begin 
temporary stexc file (F)/, 
PUE(L, S)7 
reset(f, input); 
get(£i, €imerlop, (reseerb 6 stare mo msrooro n. 
delete (f); 
exception 
when others => 
PUT LINE(STANDARD ERROR, "to timer op set: I/O error"); 


CiMmerlOp w= ence, 
resetrb := empty; 
startrb := empty; 


stoprb := empty; 
end) COL EAMer Opmser, 


procedure add _output_guards(id : in op id; 
og : in out guard map; 
Oo guard: in out out guard map) is 
Etc OUL DUG, 
begin 
fOreerd: OULD UE era 
e:; expression in out guard map pkg.scan(og) loop 
Era: —oO1d; 
tid.op := id; 
bind({tid, e, o guard); 
end loop; 
end add output_guards; 


procedure add exception _guards(id : in op _id; 
eg =; in excep Crigger map, 
e guard: in out excep trigger map) is 
Cre ge CCD ura, — . — 
begin 
LOE eid: Gexcepu ier 
e: expression in excep trigger map pkg.scan(eg) loop 
tid := eid; — 7 — 
Cid. opes= ras, 
bind (tid, e, e guard); 
enc oop, 
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end add exception guards; 


etiaeesUieUeilities Pkg; 
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<f 
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APPENDIX D: PSDL GRAMMAR 


-~ $Header: $ 


$% 


start symbol 


psdl 


component 


data type 


psdl 


psdl component 
| 


e 
v 


data type 
| operator 


° 
v 


Pye LOREEN IDENTIFIER 
type spec 
type _impl 


e 
v 


type spec 


SPECIFICATION TOKEN optional generic param optional type decl 
op spec list functionality END TOKEN 


° 
gf 


optional generic param 


GENERIC TOKEN 
PESEwOr se ype dec] 
| 


. 
f 


optional type decl 


Pest Oreeype dec] 
| 


° 
f 


ep spec list 


operator 


Spespec est OPERATOR TOKEN IDENTIFIER operator spec 


e 
gv 


OPERATOR TOKEN IDENTIFIER 
operator spec 
Opera o teen» 
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operator spec 
: SPECIFICATION TOKEN 
interface 
functionality END TOKEN 


° 
v 


interface 
interlace altel bute rcqmesmemace 


2™°o =~ ¢¢ 


attribute 
: GENERIC TOKEN 
List eG hatype ace: 
| INPUT TOKEN 
ji SC Of seypeldecr 
| OUTPUT TOKEN 
jist (CE eey pe wdcer 
| STATES TOKEN 
ji Se VOteeyperacer : 
INITIALLY TOKEN anitialeexpres sions 
| EXCEPTIONS TOKEN id list 
| MAXIMUM TOKEN EXECUTION TOKEN TIME TOKEN time 


° 
a 


-~ Initialization of the type decl is done by the calters of -hvs eae 
liVSESOEREYDeNGccr 
2 List Of typerdcc a eemeycmcce: 


| type decl 
; 
eypcucce. 
: id lise 2") cy cemname 
, 
type name 
: IDENTIFIER 
VS Vist 108 nt ype cdecimagls 
| IDENTIFIER 


mies Wage 
id list ',' IDENTIFIER 
IDENTIFIER 


se — e¢ 


reqmts trace == Ignored in this versron- 
; REQ BY TOKEN Svayirst 
| 


° 
f 


functionality 
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: keywords informal desc formal desc 


° 
f 


keywords 
KEYWORDS TOKEN id list 
| 


e 
g 


iieormal desc 
: DESCRIPTION TOKEN TEXT TOKEN 
| 


e 
f 


formal desc 
: axioms TOKEN TEXT TOKEN 
| 


e 
v 


type impl 
: IMPLEMENTATION TOKEN ADA TOKEN IDENTIFIER END TOKEN 
| IMPLEMENTATION TOKEN type name op impl list END_TOKEN 


e 
f 


Spetmp. list 
: op_impl list OPERATOR TOKEN IDENTIFIER operator impl 
| 


e 
f 


operator impl 
IMPLEMENTATION TOKEN ADA TOKEN IDENTIFIER END TOKEN 
| IMPLEMENTATION TOKEN psdl_impl END TOKEN 


° 
f 


psdl_impl 
: data_flow diagram 
streams 
timers 
Gonerol constraints 
Emtormal desc 


data_flow diagram 


GEARHeLOMeN vertex Tist edge list 


-- Time is the maximum execution time. 
Vette < 11S5t 
vertex list VERTEX TOKEN op id optional_time graph_properties 
| 


e 
c 


-- Time is the latency. 
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edge list 
: edge list EDGE SICKEN TDENTIEIER 
optional time op id ARROW op id graph properties 
; 


° 
f 


graph properties 
: graph properties PROPERTY 2GKEN I DENDRCIERwee C2 >tesevcm 


| 
| op id 


operator name opt arg 


operator name 


IDENTIFIER '.' IDENTIFIER 
| IDENTIFIER 
opt_arg 
m() Optiona lid) ise) Sept ronmalicglitc le 


e 
a 


optional id list 
; tavlisce 
| 


e 
a 


CpiEtona feta me 
a Stame 
| 


e 
v 


streams 
DATA_TOKEN STREAM TOKEN 
TTSt Or eyperdeci 


-- The order of 1a%s 1S Not important, SO We Useepsotetams = 
-- as the data structure to store the timers. 


timers 
TIMER TOKEN id list 
| 


e 
f 


Eeontrol Jeonstraines 
: CONTROL TOKEN CONSTRAINTS TOKEN 
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constraints 
constraints 

; constraints OPERATOR TOKEN op id 
opt trigger opt_period opt finish within 
opt_mcp opt_mrt constraint options 

| OPERATOR TOKEN op_ id 
Suter Gger Ope period opt finish within 
Ope mep Opt mrt constraint options 


° 
f 


constraint_options 
: constraint options OUTPUT TOKEN 
Pgs Eee OREN PexXpression reqmts trace 
| constraint options EXCEPTION TOKEN IDENTIFIER 
Steet epEuedLcate Treqmts trace 
| constraint options timer op IDENTIFIER 
Couette uEpECOlGaua, Feqmes trace 


ewe Erigqger 
TRIGGERED TOKEN trigger opt _if predicate reqmts trace 
| 


° 
f 


trigger 
BY ALL TOKEN id list 
| BY SOME TOKEN id list 


opt period 
PERIOD TOKEN time reqmts trace 
| 


opt finish within 


: FINISH TOKEN WITHIN TOKEN time reqmts_trace 
| 


° 
f 


opt_mcp 
MINIMUM_TOKEN CALL PERIOD TOKEN time regmts_trace 


opt mrt 
max resp time time regmts_trace 


max resp time 
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MAXIMUM TOKEN RESPONSE TOKEN TIME TOKEN 


timer op 
: RESET TOKEN 

| START TOKEN 2 

| STOP TOKEN 


6 
a 


opt if predicate 
; IF _TOKEN expression 


-- The expression sequence 


-- is used by procedtresbind initral state rogernerswasen 
-— the states map to construct sene sin eamapr 


initial expression list 
initial expression list 7) Ginieial express cH 
| initial expression 


-- There is one and only one initial state(initial expression) 
-- for each state variable. This production returns one 

-- expression to the parent rule corresponding to one state. 
-- This is done by using the internal stack ($$ convention). 


mc pcs ty cc cr cr rt me mcr cr cr cr cc cc cr cc cc we mm cm cg cc cc cc cc ee ee ee 


iiiel ae xpres Sion 
s IRUE 
| FALSE 
| INTEGER _LITERAL 
| REAL LITERAL 
| STRING LITERAL 
| IDENTIFIER 
| 
| 
| 
| 


type name '.' IDENTIFIER 
type name “.” IDENTIFIER "("Siniettal expression liste 


| ( Saint ti ab expression.) 
initial expression log sop initial expression 
prec logical operator 

| itnitialvexpression Lrelyop ini riaiwexpiess rom 
prec relational operacor 

| =" dnd tice xpress ion 
prec unary adding operator 

| “ae Gla blexpress ion 
prec unary adding operator 

| initial expression bin addsepeiael aiexpresston 
$prec binary adding operator 

| initial expression bin mul ios since express ton 
Sprec MUPCIplyingmoperacor 7 
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log_op 


er Op 

| 
| 
| 
| 
| 


e 
gv 


initial _expression EXP_TOKEN initial expression 
PpecemiIgGnese precedence operator 

NOT TOKEN initial expression 

Spree Mighnest precedence operator 

mPoetOREN initialwexpression 

@prec highest precedence operator 


AND_TOKEN 
OR_TOKEN 
XOR_TOKEN 


re! 

= 

t.' 
GREATER THAN OR EQUAL 
LESS THAN OR EQUAL 
INEQUALITY 


bin add op 


e 
fv 


bin mul op 


| 
| 
| 
? 
time 
| 
| 
| 


e 
f 


ty 


ee 


tx 
7 
MOD TOKEN 
REM TOKEN 


time number MICROSEC TOKEN 
time number MS_ TOKEN 
time_number SEC TOKEN 
time_number MIN_TOKEN 

time number HOURS TOKEN 


time number 


oe 
e 


e 
v 


INTEGER LITERAL 


expression list 


e 
e 


| 


e 
gv 


SXPEesceecinist  , €Xpression 
expression 
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cc ee ee me ce ec cr ce ce ce cr ee ce ce i ee ce ce ce ee ee cc ee es ee ee ee ee ee 


Expressions can appear in guards appearing in control constraints. 
These guards can be associated with triggering conditions, or 
conditional outputs, conditional exceptions, or conditional timer 
operations. Similar to initial expression, except that tim e values 
and references to timers and data streams are allowed. 


expression 


$B 


>: TRUE 

| FALSE 

| INTEGER LITERAL 

| REAL LITERAL 

| STRING LITERAL 

| IDENTIFIER 

-- The only difference from the initial expression 
time 


| 

| type name "=> ST PENrT Ere 

| type name °.* IDENTIFIER “(" ‘express#cne) ecm 

| '(' expression ')' 

| “Expression logucp expression eprec logical operate 

| expresision rel op expression tpree relational operator 

| ‘'-' expression tprec unary adding operator 
| ‘+ expression t$prec unary adding operator 
| 


expression bin add op expression 
tprec binary adding operator 
| expression bin mul op expression 
Sprec Multiply ingore racos 
| expression EXP TOKEN expression 
spree Naghest  peeceedence ope acon 
| NOT TOKEN expression 
sprec highest sprecedcence ope sare: 
| ABS TOKEN expression 
opree highest ep recedence Operator 


SZ 


APPENDIX E: TEST DATA 


YP STACK 
SPECIFICATION 
GENERIC 
types : private 


Eeypcue ©. public 


OPERATOR PUSH 
SPECIFICATION 
INPUT 
I; INTEGER 
NP UT 
S : STACK 
OUTPUT 
Ss : STACK 
END 


OPERATOR POP 
SPECIFICATION 
INPUT 
S =: STACK 
OUTPUT 
I : INTEGER 
OUTPUT 
Seo LACK 
END 


OPERATOR Empty 
SPECIFICATION 
OUTPUT 
dummy : STACK 
END 
KEYWORDS 
stack, adt 
DESCRIPTION 
{This is a generic stack adt} 
AXIOMS 
{push (s,x) = s::x} 
END 
IMPLEMENTATION ADA STACK 


END 


OPERATOR Compute 8 


SPECIFICATION 
INPUT 
X1 : INTEGER 
INPUT 
X2 : INTEGER 
INPUT 
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X3 : INTEGER 
OUTPUT 

X1 : INTEGER 
OUTPUT 

X2 : INTEGER 
OUTPUT 

x3 : INTEGER 
OUTPUT 

DC : INTEGER 
OUTPUT 

DX : FLOAT 
OUTEUT 

DY : BOOLEAN 
EXCEPTIONS 

El 
EXCEPTIONS 

E2 
KEYWORDS 

software, bubbles 
DESCRIPTION 

{This is an atomic bubble. 

Line Ze 

Line 3. } 
AXIOMS 

{P = NP } 

END 
IMPLEMENTATION ADA Compute 8 


END 


OPERATOR Consumer 4 


SPECIE ICARTICN 

ENEUT 

DB : INTEGER 
INPUT 

DC : INTEGER 
EACEPTIONS 

Bt 
EXCEPTIONS 

E2 


MAXIMUM EXECUTION TIME O MS 
END 
IMPLEMENTATION ADA Consumer 4 
END 
OPERATOR OBSOLETE ROOT 0 
SPECIFICATION 
END 
IMPLEMENTATION ADA OBSOLETE ROOT 0 
END 


OPERATOR OP _A 135 
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SPECIFICATION 
INPUT 
DX : FLOAT 
END 
IMPLEMENTATION ADA OP A 135 


END 


OPERATOR OP B 136 
SPECIFICATION 
INPUT 
DY : BOOLEAN 
END 
IMPLEMENTATION ADA OP B 136 


END 


OPERATOR Process Data_5 
Seaci FICATION 
ENEUT 
DA: Missing Info 
OUTPUT 
DB : INTEGER 
OUTPUT 
DC : INTEGER 
OUTPUT 
DX OAT 
CuUTEUT 
DY : BOOLEAN 
STATES 
X2 : INTEGER 
INITIALLY 
Zz 
STATES 
SiN TEGER 
INITIALLY 
1 
STATES 
Sueno LACK 
INITIALLY 
EMPTY 
EXCEPTIONS 
El 
BACEPT ION s 
E2 
EXCEPTIONS 
E3 
MAXIMUM EXECUTION TIME 150 MS 
KEYWORDS 
Compute, Composite, Parent 
DESCRIPTION 
{This is an composite bubble. } 
AXIOMS 
{P '= NP, believe it or not } 
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END 
IMPLEMENTATION 
GRAPH 


VERTEX STACK.POP 14(S5 | DB, Si. 3t205M> 


PROPER ie 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROFERT 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 


x = 456 

y = 110 

radius = 30 

color = 62 

Papel font — 0 
Tabel x offset =e -co 
label y offset = 84 
met, font = 0 

Metrix offset J. 
met_y offset =o 
is terminator = FALSE 


VERTEX STACK.PUSH_13(DA, S | S) 


PROPERTY 
PROPERTY 
PROPER x 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPER x 


x = 210 

y = 110 

radius = 30 

color = 62 

AF OG Or ee ae) 
abel x efEset — sae 
Fabel ysotrsicta mae 
met _font = 0 

met_x offset = 244 
met_y offset = 78 

is terminator = FALSE 


VERTEX Compute 8 19 


PROPERT. 
PROPERT ¥ 
PROPERTY 
PROPERTY 
PROPER 1, 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 


EDGE S 


x = 330 

y = 341 

radius = 30 

color = 62 

label font = 0 
Fabel Ssoftset — > 
label y offset = 34 
met font = 0 

Me texsOrisele aaa 
Met yeotiseta—eZzua 
is terminator = FALSE 


STACK.POP_14(S | DB, S) -> 
STACK.PUSH_13(DA, S | 8S) 
PROPERTY id = 33 
PROPERTY label font = 0 
PROPERTY label x offset = - 4 
FROPERIY labe ley lot rseue ao 
PROPERTY latency font = 0 
PROPERTY latency Avebtset — 513 
PROPERTY latency y offset = 182 
PROPERTY spline = "362 71 " 


156 


EDGE DB 

STACK.POP 14(S | DB, S) -> 

EXTERNAL 
PROPERTY id = 32 
PROPERTY label tone = 0 
PROPERTY fabolexsoriset 
PROPERIY Label y offset = 1 
PROPERTY latency font = 0 
Pree hive racencyex ortset = 292 
PROPERTY latency y offset = 243 


PROPERTY spline = "593 102 675 137 " 


Il 
W 


EDGE DA 

EXTERNAL -> 

STACK.PUSH 13(DA, S | S) 
PROPERTY id = 31 
PROESRI Ys label font = 0 
PROPER label x offset - 19 
PRePERIY label y offset = —- 17 
PROPERTY latency font = 0 
PROPERTY latency x offset = 131 
ERGPERITY latency y offset = 123 
PROPERTY spline = "46 137 142 107 " 


EDGE X1 

Compute 8 19 -> 

Compute 8 19 
PROPERTY id = 51 
PROPERTY label font = 0 
PROPERTY Label x offset = 15 
PROPERTY tabel y offset = 24 
PROPERTY latency font = 0 
PROPERTY latency x offset = 124 
PROPERTY latency y offset = 249 


PROPERTY spline = "437 402 403 443 " 


EDGE X2 

Compute 8 19 -> 

Compute 8 19 
PROPERTY id = 51 
PROrmniy labelwiont = 0 
PROEERIY slabel xvortiset = eg 
PROPERTY label y offset = 18 
PROPERTY latency font = 0 
PROPERTY latency x offset = 224 
PROPERTY latency y offset = 149 
PROPERTY spline = "287 407 318 444 " 


EDGE 5S 
STACK. PUSH 13(DA, Salo. 
STACK.POP 14(S OS cs) 
PROPERTY id = 34 
PROEBRIY Vlabelatont = 0 
PROPERiaeetabel x otiset = —- 1 
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PROPERTY label ™ysGEEsee =a 
PROPERTY Patency fone ——¢ 
PROPERTY Latency xioetser —ailaa 
PROPERTY Yatency y cktset = ivG 
PROPERTY “spline = "365 .165.— 


EDGE X3 

COnpuce | Ee 

Computeno Es 
PROPERTY id = 50 
PROPERTY label font = 0 
PROPER EY label orrsce ee 
PROPERTY label noLisee =e 210 
PROPERTY latency (tonus— 0 
PROPERTY Latency ax Cftce cma ead 
PROPERTY Patency iy oLisetea 42 
PROPERTY spline = "330 299 383 297 " 


EDGE DC 

Conpuee (ose 

EXTERNAL 
PROPERTY id = 2909 
PROPERTY @labeletones— = 2 
PROPERTY Pabelexscttiset — 0 
PROPERTY label y offset = 0 
PROPERTY latencymtont = 2 
PROPERTY "acencyaexeorlcces= 0 
PROPERTY WVatencyey ofiseea— als 
PROPERTY spline = "439 309 496 266 " 


EDGE DX 

COMp Ue Gaels mer 

EXTERNAL 
PROPERTY id = 2910 
PROPERTY tabeleeont = 2 
PROPERTY label xvottsct: — @ 
PROPERTY label y offset = 0 
PROPERTY latency font = 2 
PROPERTY slatency “sol tse= sal 
PROPERTY “acencyay Oltise= = 15 
PROPERTY spline = "482 360 574 351 " 


EDGE DY 

Compute 8 19 -> 

EXTERNAL 
PROPERTY id = 2911 
PROPERTY label tone — 72 
PROPERTY Jabel xsefise: —a0 
PROPERTY labelny sottsee = 6 
PROPERTY latency ont y= 92 
PROPERTY latency x offset = 0 
PROPERTY latency (ylottset — sia 
PROPERTY spline = "477 400 566 423 " 
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DATA STREAM 
Xo sn E GER 
CONTROL CONSTRAINTS 


OPERATOR STACK.POP 14(S | DB, S) 
MINIMUM CALLING PERIOD 100 MS 
MAXIMUM RESPONSE TIME 4500 MICROSEC 
OUTPUT 

Ss 
IF S /= STACK. EMPTY 


OUTPUT 

DB 

tees = 0 
EXCEPTION E3 

IF S = STACK. EMPTY 
EXCEPTION E4 

LE oDB. <0 
START TIMER 

Timerl 


RESET TIMER 
Timer2 


OPERATOR STACK.PUSH 13(DA, S | S) 

OUTPUT 

Ss 

IF S /= STACK. EMPTY 
EXCEPTION E3 

IF S = STACK.EMPTY 
START TIMER 

Timerl 


OPERATOR Compute 8 19 
END 


OPERATOR Producer I 
SPECI FICATION 
GENERIC 
Gl ; FLOAT 
OUTPUT 
DA : Missing Info 
MAXIMUM EXECUTION TIME 0 MS 
END 
IMPLEMENTATION ADA Producer 1 


END 


OPERATOR esgectsuZ 
SPECIFICATION 
END 
IMPLEMENTATION 
GRAPH 
VERGE ErOcess Uarags 20: 150 MS 


[S23 


PROPERTY x = 183 
PROPERTY y = 139 
PROPERTY radius = 30 
PROPERTY color = 62 
PROPERTY Label font 


= 0 


PROPERTY label x offset = 5 
PROPERTY label y offset = 44 


PROPEREY met tone = 
PROLEREY oct sorrse 
PROPERTY Mele yeotise 
PROPER] 1S Secuma hat 


VERTEASP EOaucer sia tZ 
PROPERTY x = 14 
PROPERTY y = 79 
PROPERTY radius = 30 
PROPERTY color = 62 
PROPERTY Vabel gfrone 
PROPERTY shave le 0 2 
PROPERTY slave. co fe 
PROPERT , met (font) — 
PROPERT Wonleteeorrse 
PROPERT Yeme Gayeot ise 
PROPERTY 1s (terminac 


VERTEX Consumer 4 11 
PROPERTY x = 353 
PROPERTY y = 205 
PROPERTY radius = 30 


PROPERTY color = 62 ° 


PROPERTY Fabel Sion 


0 

t = 8 

t= - 12 

or = FALSE 
0 MS 

= 0 

set = 20 

set = 39 

0 

t = 63 

t= - 5 

or = TRUE 
0 MS 

= 0 


PROPERTY label ortsee are 
PROPER (apeleyaottset eae 


PROPERTY met font )— 


0 


PROPERTY met x offset = 63 
PROPERTY Met yeortscus———o 
PROPERTY is terminator = TRUE 


VERTEX OP _A_135 129 
PROPERTY x = 114 
PROPERTY y = 306 


PROPERTY radius = 30 


PROPERTY color = 62 
PROPERTY abel Stone 


=2 


PROPERTY Label ix oriset = 23 
PROPERTY label y offset = 46 


PROPERTY met font = 


2 


PROPERTY met _x_ offset = 144 
PROPERTY met_y offset = 306 
PROPERTY is Cerminateor = FALSE 


VERTEX OP B 136 131 
PROPERTY x = 427 
PROPERTY y = 77 
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PROPERTY radius = 30 
PROPERTY color = 62 
PROLER lie labeletont >» 2 


PROPERLY elabe lex ofiset = 20 
PROPERTY label y offset = 40 
PROBE RI Y Met et ont = 2 
BROBERTY Met x offset = 457 


PROEERIY met yeotsset = /7 
PROPERTY is terminator = FALSE 


EDGE DA 

PEocUcen I kZ—-> 

BEocess Datavo20 
PROPERTY id = 30 
BROPERLY label font — 0 
ERGEBEiy labelix offset 
PROERRi Ye labeliyecttset =) — 8 
PROPERGY latency ronty— 0 
PROPERTY latency x offset = 124 
PROPERTY latency y offset = 149 


PROPERTY spline = "143 140 " 


ll 
Oo’ 


EDGE DB 

EEocess Vaid es 20 => 

Consumer 4 11 
PROPERTY id = 40 
PROPERTY label font = 0 
PROP ieerabel x offset = 1] 
BEOPERTY Tdbel@yecottsee=— — 6 
PROPERTY latency font = 0 
PROEPRiVWe Latency x Oriset = 269 
PROPERIvslatency y offset = 204 
PROPERTY spline = "297 199 " 


EDGE DC 

Process Data_5 20 -> 

Consumer 4 11 
PROPERTY id = 42 
FROEERIY: Vabel font = 0 
BROEPERTY label x offset 
PROEBEIY sabe layaotiset 
PROPERTY latency fonts= 0 
BRORERTY Latency x offset = 0 
PROPERTY latency y offset = 16 
PROPERTY spline = "302 358 " 


Il 
! 
co 


= ad 


EDGE DX 

BeocessS ePatauoucl —> 

OParehes 129 
PROPERTY id = 130 
PROPERTY label font = 2 
PROEBEIY label x ofiset 
PROPER Y babel yrotiset 
EROPERI Ye atency font = 


NM oil il 
i 
re) 
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PROPERTY latency x offset = 184 
PROPERTY latency y offset = 237 
PROPERTY spline — “169 2500" 


EDGE DY 
ELOCeSoe Udita om Om 
OPEB. 136_ 1 ose 


PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 
PROPERTY 


DATA STREAM 


Dye 
DX 
DC 
DB 


DA : 


BOOLEAN, 
FLOAT, 


INTEGER, 


INTEGER, 
MissTngas 


id = 134 

label font = 2 
label |  e2OLiser =] 
label — AVE offset = 
Tatency font. — 


latency x offset = 
latency y offset = 
spline = "335 138 


Info 


CONTROL CONSTRAINTS 


END 


OPERATOR Process Data 5 20 


OPERATOR ieefelincaie MZ 
PERIOD 4000 MS 
FINISH WITHIN 100 MS 


OPERATOR Consumer 4 11 
TRIGGERED BY ALL 


DB 


EE DBS eo 


OPERATOR OP A 135 129 


OPERATOR OP B 136 131 


meh 
= ko 


ZG 
Nes 
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10. 


11. 


12. 
rr 
14. 
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